Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Split file using perl and regexp

by davido (Archbishop)
on Jan 17, 2013 at 19:45 UTC ( #1013871=note: print w/ replies, xml ) Need Help??


in reply to Split file using perl and regexp

Could you explain how this question substantially or conceptually differs from Split a file based on column, which you posted (and followed-up to) yesterday? I thought we already dealt with this.

What did you mean, in that thread, by "Thanks, got it working"?


Dave


Comment on Re: Split file using perl and regexp
Replies are listed 'Best First'.
Re^2: Split file using perl and regexp
by brad_nov (Novice) on Jan 17, 2013 at 20:21 UTC
    I mean I was able to split the file based on the solution given by Kenosis. It's an extension to yesterday's problem. Sorry if I was not clear. Thanks.

      If it's an extension of yesterday's problem, post the code that you're currently using so that we can help in extending it.

      Otherwise it just looks like you're making zero progress on your own, and hoping someone will do free work for you.


      Dave

        I am currently using the script like this
        $split_file=$ARGV[0]; $split_file=~ s{.*/}{}; $split_file=~ s{\.[^.]+$}{}; print "split_file=$split_file\n"; while (<>) { if ( my ($m_id) = /^\d+\|(\d+?)\|/ ) { open my $fh, '>>', "${split_file}_" . $m_id . '.txt'; print $fh $_; } }
        I am trying to create a script for each scenario and pass it as variable.
        Currently I am using the below script to split into multiple files:
        $split_file=$ARGV[0]; $split_file=~ s{.*/}{}; $split_file=~ s{\.[^.]+$}{}; print "split_file=$split_file\n"; while (<>) { if ( my ($m_id) = /^\d+\|(\d+?)\|/ ) { open my $fh, '>>', "${split_file}_" . $m_id . '.txt'; print $fh $_; } }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2015-07-31 00:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls