Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;

...
  $_='';my@v;{$_&&push@v,$_;$_=pop;redo until/=>/}
  $k=pop;$h{$k}=[@v,@{$h{$k}}];@_?&f:\%h
}
  2. or download this
    sub f {
  $_=my@v;{$_&&push@v,$_;$_=pop;/=>/||redo}
  $k=pop;$h{$k}=[@v,@{$h{$k}}];@_?&f:\%h
}
  3. or download this
    sub f {
  my@v;{$_=pop;/=>/||(push@v,$_)&&redo}
  $k=pop;$h{$k}=[@v,@{$h{$k}}];@_?&f:\%h
}