Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^3: Effective way in perl

by QM (Vicar)
on Jul 17, 2009 at 14:48 UTC ( #781073=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Effective way in perl
in thread Effective way in perl

You have:

`$swlist -l depot @ $depot_locn | $grep $rel_string | $grep $i | $grep + AR >> blah`

which isn't pure perl code anyway, is it? (It's convenient to call grep 3 times, but might be more efficient to do with Perl's own grep.) Here, you're using perl just like you would use sh.

But to address your question, try:

`$swlist -l depot @ $depot_locn | $grep $rel_string | $grep $i | $grep + AR | tee file1 | tee file2 | tee file3 >> tee file4`
But if you need append, I don't think tee can do that.

Also take a look at Regexp Quote Like Operators and What's wrong with using backticks in a void context?

-QM
--
Quantum Mechanics: The dreams stuff is made of


Comment on Re^3: Effective way in perl
Select or Download Code
Re^4: Effective way in perl
by parv (Priest) on Jul 18, 2009 at 10:28 UTC
    Well, my tee(1)'s (FreeBSD 6 & CentOS 5) have -a, same as --append, option.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2015-07-01 22:12 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 (24 votes), past polls