Rosetta Code

Multisplit: Difference between revisions

Page Discussion

Multisplit (view source)

Revision as of 00:06, 29 December 2011

236 bytes removed ,  12 years ago
→‎{{header|Perl}}: simplified perl solution
(Go solution)
(→‎{{header|Perl}}: simplified perl solution)
Line 380:
sub multisplit {
my ( $string , $pattern ) = @_ ;
split( /($pattern)/, $string, -1 ) ;
my @found ;
while ( $string =~ /([^=!]*)(($pattern)+?)/g ) {
push @found , $1 ;
push @found , $2 ;
}
#next line to enforce showing of last character
push( @found , substr( $string, length( $string ) - pos( $string ) - 1 ) ) ;
return @found ;
}
 
my $phrase = "a!===b=!=c" ;
my $pattern = "==|!=|=" ;
map { print "$_ ," }foreach multisplit( $phrase , $pattern ) ;
print "\n" ;</lang>
Output:
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/173741"