Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^4: Split file using perl and regexp

by brad_nov (Novice)
on Jan 17, 2013 at 21:36 UTC ( #1013895=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Split file using perl and regexp
in thread Split file using perl and regexp

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.


Comment on Re^4: Split file using perl and regexp
Download Code
Re^5: Split file using perl and regexp
by Kenosis (Priest) on Jan 17, 2013 at 22:06 UTC

    By using data placeholders, viz., ~somedata~some data~~~~~~~~~~~~some data~~~~~, you may be omitting information that would assist in crafting a solution to accomplish your end--assuming you're not redacting information.

    Consider showing samples of the actual data, provided it's suitible for public consumption, as this will likely be more beneficial.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (14)
As of 2015-07-02 10:27 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 (33 votes), past polls