Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Foreach loop help. Start from specific line

by roboticus (Canon)
on Oct 22, 2012 at 13:27 UTC ( #1000340=note: print w/ replies, xml ) Need Help??


in reply to Foreach loop help. Start from specific line

Doozer:

A cheap & cheezy way you can do it:

$ cat t.pl #!/usr/bin/perl use 5.14.0; use warnings; use autodie; #START # Ignore first few lines (read & discard) my $start=2; <DATA> for 1..$start; #END # Process file... while (<DATA>) { print; } __DATA__ Now is the time for all good men to come to the aid of their party. $ perl t.pl to come to the aid of their party.

Just add the lines between START and END to your program after opening your file. That way, it'll just discard the first $start lines before processing the remainder of the file.

As an added bonus, you can also:

  • Make the $start parameter a command-line argument.
  • Add another argument to limit the number of lines processed.

This lets you fire off multiple jobs that can run in parallel:

$ perl www_whacker.pl --start 200000 --limit 100000 >out1 & $ perl www_whacker.pl --start 300000 --limit 100000 >out2 & $ perl www_whacker.pl --start 400000 --limit 100000 >out3 & $ # wait for all jobs to complete, then you can join all $ # the results together: $ cat out1 out2 out3 >output

...roboticus

When your only tool is a hammer, all problems look like your thumb.


Comment on Re: Foreach loop help. Start from specific line
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-09-02 10:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (21 votes), past polls