Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: System command not working

by jwkrahn (Monsignor)
on Jul 10, 2012 at 09:50 UTC ( #980845=note: print w/replies, xml ) Need Help??

in reply to System command not working

perl -ne 'print if $. >= 17 && $. <= 30' infile.txt > output.txt

That can be written more simply as:

perl -ne 'print if 17 .. 30' infile.txt > output.txt

The comparison to $. is done automatically.

Your program needs a while loop:

open INFILE, '<', $inFile or die "Can't open $inFile : $!"; open OUTFILE, '>', $outFile or die "Can't open $outFile : $!"; while ( <INFILE> ) { print OUTFILE if 17 .. 30; } close INFILE or die "can't close $inFile : $!"; close OUTFILE or die "can't close $outFile : $!";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://980845]
[thezip]: G'day!

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2017-01-19 19:36 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (170 votes). Check out past polls.