Re^3: Better method to cut columns from delimited file

Still room for optimization, but here it is (Linux style quotes used):

 perl -F"\|" -anlE'%x= %x?%x:(map{$_=>$i++}@F);print "$F[ $x{NAME}]|$F
+[$x{ZIP} ]"' junk2.txt
[download]

(Unwound the slice, and used Names as indexes)

I hope life isn't a big joke, because I don't get it.
-SNL

Comment on Re^3: Better method to cut columns from delimited file Download Code