Help for this page

Select Code to Download


  1. or download this
    @result=map {
  /=/ ? split(/=/,$_,2) :
  ($_,fn($_)) } split(/,/, $string);
  2. or download this
    @result=map {
  /=#/? (@l=split(/=#/,$_,2) && ($l[0],fn($l[1])) :
  /=/ ? split(/=/,$_,2) :
  ($_,fn($_)) } split(/,/, $string);
  3. or download this
    $ perl -e '
(@n=(1,2) && ($n[1],$n[0]));
...
(@n=(1,2) && ($n[1],$n[0]));
'
Segmentation fault