Help for this page

Select Code to Download


  1. or download this
    BEGIN { $sep= '' }
if(  '' eq $sep  &&  1 < @F  ) {
    ( $sep )= /\Q$F[0]\E(.*?)\Q$F[1]\E/;
}
  2. or download this
    my $pos= 0;
for my $f (  0..$#F  ) {
...
    substr( $_, $-[0], $+[0]-$-[0], $G[$f] );
}
pos($_)= 0;