Help for this page

Select Code to Download


  1. or download this
    push @splitted, $1 while $str =~ /([^=]+=[^=]+)/g;
  2. or download this
    my @temp = split(/=/, $str);
    push @splitted, join("=", splice(@temp,0,2)) while @s;