perl -e'open(IN, $ARGV[0]);my $file = do {local $/;<IN>};my @parts=spl +it(/$ARGV[1]/, $file);for (0..$#parts){open(OUT, ">$ARGV[0].$_");prin +t OUT $parts[$_];close OUT}' splitme abc
In reply to Re: Splitting files on regex
by svenXY
in thread Splitting files on regex
by Win
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |