Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Rearranging columns in multiple text files

by igelkott (Priest)
on Mar 18, 2013 at 11:27 UTC ( [id://1024014] : note . print w/replies, xml ) Need Help??

in reply to Rearranging columns in multiple text files

Nothing wrong with cut or calling unix commands in general but may as well use the normal Perl commands once you've started. In particular, look into split so for each file you could do something like:

@a = split(/\t/); print "$a[0]\t$a[1]\t$a[12]\t$a[11]\n";
There are fancier ways to do this but seems like it'd be best to keep it simple to begin with. The other parts depend on whether you are writing all results to a single file or operating on each file individually, etc.