Help for this page

Select Code to Download

Select or download this

356,0 sauoq@fozzie:~$ perl -MData::Dumper -F'\|' -lane'($k,@v)=@F;$f{$
+k}=[@v]}{print Dumper \%f'
foo|bar|baz
...
                     'baz'
                   ]
        };

Select or download this

357,0 sauoq@fozzie:~$ perl -MData::Dumper -F'\|' -lane'($k,@v)=@F;$f{$
+k}=\@v}{print Dumper \%f'
foo|bar|baz
...
                   ],
          'foo' => $VAR1->{'qux'}
        };