Help for this page

Select Code to Download


  1. or download this
    perl -F"," -lane "push @{$h{$F[0]}},$F[1]}{print map{$_.'|'.(join',',@
+{$h{$_}}).qq(\n)}keys %h" data.txt

...
20147155|YOUSLAV,KUPLYSO,FRIMA
20055111|YOUSLAV,YURT,TENWIMPL
  2. or download this
    perl -MO=Deparse -F"," -lane "push @{$h{$F[0]}},$F[1]}{print map{$_.'|
+'.(join',',@{$h{$_}}).qq(\n)}keys %h"

...
    print map({$_ . '|' . join(',', @{$h{$_};}) . "\n";} keys %h);
}
-e syntax OK