Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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.

Replies are listed 'Best First'.
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2016-12-11 01:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (168 votes). Check out past polls.