Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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 studying the Monastery: (7)
As of 2014-09-23 08:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (212 votes), past polls