Re^3: golf: shortest way to parse a pipe delimited file

[BrowserUk]

Update: Oh crap!

In that case, gotcha by 1 :)

perl -F'\|' -lane'($k,@v)=@F;$f{$k}=\@v'

[sauoq]

Not quite. That @v is global... you need [@v] because you won't be making a copy otherwise. Here's mine...

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

And yours...

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