in reply to Better method to cut columns from delimited file
Spreadsheet::Read comes with xlscat, which can filter rows and/or columns from CSV, XLS and other spreadsheet like formats:
$ cat test.csv NAME|AGE|CITY|ZIP AAA|23|STAT|60001 BBB|34|PPOR|12345 CCC|11|TRET|2345 $ xlscat --in-sep-char=\| -C1,3 test.csv NAME|CITY AAA|STAT BBB|PPOR CCC|TRET $
For CSV-like formatted files, it uses Text::CSV_XS.
Enjoy, Have FUN! H.Merijn
In Section
Seekers of Perl Wisdom