One-Liner Help

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
(jptxs)Re: One-Liner Help - WHY? by jptxs (Curate) on Jun 06, 2001 at 18:40 UTC
my question: why would you? it's perfectly adequate the way it is. right tool for the right job. that little script is easy to read and understand and appears to function fine. do you need it to be cross platform? do you need to incorporate it into a larger all-perl program? these things I could see, but then why ask specifically for a one-liner? my only advice is to drop the use of `cat`; it does nothing =) `"A man's maturity -- consists in having found again the seriousness one had as a child, at play." --Nietzsche` [download]	[reply] [d/l] [select]
Re: One-Liner Help by clintp (Curate) on Jun 06, 2001 at 21:18 UTC
As a postscript, a shell pet peeve of mine: cat `lsnrctl stat ZRRI_LISTENER\|grep Parameter\|awk '{print $4}'` [download] Awk can do the grepping for you: cat `lsnrctl stat ZRRI_LISTENER\| awk '/Parameter/ {print $4}'` [download] Save a process! One day they might be endangered!	[reply] [d/l] [select]
(tye)Re: One-Liner Help by tye (Sage) on Jun 06, 2001 at 20:51 UTC
`lsnrctl stat ZRRI_LISTENER \| perl -lane 'print $F[3] if /Parameter/'` Update: Oops. That isn't the same thing... `lsnrctl stat ZRRI_LISTENER \| perl -lane 'print $F[3] if /Parameter/' \| xargs perl -pe 0` is closer. So, if we wanted to do this without the shell's help: perl -e '@ARGV= map {(split" ")[3]} grep /Parameter/, `lsnrctl stat ZRRI_LISTENER`; print while <>' - tye (but my friends call me "Tye")	[reply] [d/l] [select]
Re: One-Liner Help by larryk (Friar) on Jun 06, 2001 at 20:15 UTC
Well I don't know what lsnrctl stat BLAH does but I'm guessing you're getting some lines of data back. I can't promise this'll work but give it a shot... `lsnrctl stat ZRRI_LISTENER \| perl -e "print map{(split)[4].$/} grep /P +arameter/, <STDIN>"` [download] "Argument is futile - you will be ignorralated!"	[reply] [d/l]