Help for this page

Select Code to Download


  1. or download this
    my @delim = qw(: :: / // \| \|\| \s+);
mySplit \@delim, $str1;
mySplit \@delim, $str2, 4;
  2. or download this
    my @delim = qw(: :: / / \| \|\| \s+);
mySplit \@delim, $str1;
mySplit [ @delim[0..2] ], $str2;