March 2014 update

Task/Multisplit/AutoHotkey/multisplit.ahk

@@ -0,0 +1,9 @@
+Str := "a!===b=!=c"
+Sep := ["==","!=", "="]
+Res := StrSplit(Str, Sep)
+for k, v in Res
+	Out .= (Out?",":"")  v
+MsgBox % Out
+for k, v in Sep
+	N .= (N?"|":"") "\Q" v "\E"
+MsgBox % RegExReplace(str, "(.*?)(" N ")", "$1 {$2}")

Task/Multisplit/Perl/multisplit.pl

@@ -1,11 +1,11 @@
-#!/usr/bin/perl -w
-use strict ;
 sub multisplit {
-   my ( $string , $pattern ) = @_ ;
-   split( /($pattern)/, $string, -1 ) ;
+   my ($sep, $string, %opt) = @_ ;
+   $sep = join '|', map quotemeta($_), @$sep;
+   $sep = "($sep)" if $opt{keep_separators};
+   split /$sep/, $string, -1;
 }
 
-my $phrase = "a!===b=!=c" ;
-my $pattern = "==|!=|=" ;
-print "$_ ," foreach multisplit( $phrase , $pattern ) ;
-print "\n" ;
+print "'$_' " for multisplit ['==','!=','='], "a!===b=!=c";
+print "\n";
+print "'$_' " for multisplit ['==','!=','='], "a!===b=!=c", keep_separators => 1;
+print "\n";

Task/Multisplit/TXR/multisplit-2.txr

@@ -0,0 +1,2 @@
+$ txr -p '(tok-str "a!===b=!=c" #/==|!=|=/ t)'
+("a" "!=" "" "==" "b" "=" "" "!=" "c")