Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Split a file based on column

by Kenosis (Priest)
on Jan 16, 2013 at 20:43 UTC ( #1013643=note: print w/ replies, xml ) Need Help??


in reply to Split a file based on column

Although your data's a good candidate for a CSV parsing module, perhaps the following will assist:

use strict; use warnings; while (<>) { if ( my ($col2) = /^\d+\|(\d+?)\|/ ) { open my $fh, '>>', 'sample_1_' . $col2 . '.txt' or die $!; print $fh $_; } }

Usage: perl scriptName.pl sample_1.txt

The regex captures the value in the second column, and that's used later in creating the file name. The file's opened for appending, and the line's written to it. Since a lexically-scoped file handle is used, the file's automatically closed at the end of the if code block.


Comment on Re: Split a file based on column
Select or Download Code
Re^2: Split a file based on column
by brad_nov (Novice) on Jan 16, 2013 at 22:45 UTC
    Thanks, got it working

      Excellent, brad_nov, and you're most welcome!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1013643]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (15)
As of 2014-08-01 17:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (37 votes), past polls