aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Multisplit/Perl/multisplit.pl Normal file
View file

@ -0,0 +1,11 @@
#!/usr/bin/perl -w
use strict ;
sub multisplit {
my ( $string , $pattern ) = @_ ;
split( /($pattern)/, $string, -1 ) ;
}
my $phrase = "a!===b=!=c" ;
my $pattern = "==|!=|=" ;
print "$_ ," foreach multisplit( $phrase , $pattern ) ;
print "\n" ;