Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: UN*X ls, sed, cat... in Perl

by graff (Chancellor)
on Apr 17, 2005 at 04:58 UTC ( #448583=note: print w/ replies, xml ) Need Help??


in reply to UN*X ls, sed, cat... in Perl

I was just curious why you would do this:

@files = reverse (sort { $files{$a} <=> $files{$b} } keys %files);
instead of this:
@files = sort { $files{$b} <=> $files{$a} } keys %files;
As for the "2A" example, you could simplify that to a single system call:
my $redirect = ( $TRACE < 2 ) ? '>' : '| tee'; system( "sed s/{author}.*//g <$file $redirect ${file}1.txt";
The trick there is that when you pipe to "tee filename", output is written to both stdout and to filename; and the stdout from "system()" is the same as the perl script's STDOUT, so you'll see it.


Comment on Re: UN*X ls, sed, cat... in Perl
Select or Download Code
Re^2: UN*X ls, sed, cat... in Perl
by ady (Deacon) on Apr 17, 2005 at 12:19 UTC
    Good questions...
    Your code for reversing the sort result list is clearly preferable.
    Your switch of redirection depending on trace level is also a nice twist.
    I've adopted both of your improvements here graff.
    Thanks! -- Allan

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2014-08-21 04:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (127 votes), past polls