Mailing List
Home
Forum Home
Linux - General Red Hat Linux discussion list
Enterprise Linux 3 - Discussion of Red Hat Enterprise Linux 3 (Taroon)
Installation - Getting started with Red Hat Linux
Red Hat Linux 9 - Discussion of Red Hat Linux 9 (Shrike)
Red Hat Linux 7.3 - Discussion of Red Hat Linux 7.3 (Valhalla)
Red Hat Linux 7.2 - Discussion of Red Hat Linux 7.2 (Enigma)
Apache Web Server
Oracle database, Microsoft SQL server ...
Subjects
application/x mplayer2 plugin
RPM error: db4 error(16) from dbenv >remove: Device or resource
   busy
Command stream end of file while reading
X Windows problem (xauth)
Upgrading openoffice 1 1 rpm
FTP: connection refused
FTP: connection refused
mount: /dev/cdrom: is not a valid block device
Dell Precision 650, RedHat 9, no sound
how to trace the cause resulting in the crash of bind server
Virus on the list
UNINSTALL RPM MYSQL
usb pen drives: mounting as a user
broadcom network interface
make mrproper
sendmail configuration on redhat
Couldn 't open PID file /var/run/named/named pid Permission denied
Promise 378 controller
kernel 2 6 and /dev/sound/mixer not found
Problem using up2date
mrtg step by step howto/configuration for a newbie?
Compiling and Installing Kernel 2 6
Can 't locate module ppp0, can 't locate module ppp compress 21
HOW I CAN MAKE BOOTABLE FLOPPY DISKET
Lotus Notes under Wine
/etc/security/limits conf question
Intel E/1000 driver
Command stream end of file while reading
rpm database corrupt
qla2300 modules
 
Search:  
Power your search with and, or, +, -, or "some phrase" operators.
Scripting help please

Scripting help please

2005-05-04       - By Collins, Kevin [MindWorks]

 Back
Reply:     1     2     3     4     5     6     7     8     9     10  

Sure, but then why not do?

cat $file | awk '{print}' | while read line
do
  echo "$line"
done | perl -F\\$ -nae '$F[1] =~ s/,/*/g; print join("\$", @(protected))'

The answer: because it is redundant and not necessary. Perl and sed and
awk and most other "filters" know how to open a file, so give them a
file and let them do their job. Your teaching someone, so teach them the
right way...

Kevin

-- --Original Message-- --
From: taroon-list-bounces@(protected)
[mailto:taroon-list-bounces@(protected)] On Behalf Of John Haxby
Sent: Wednesday, May 04, 2005 8:29 AM
To: Discussion of Red Hat Enterprise Linux 3 (Taroon)
Subject: Re: Scripting help please

Collins, Kevin [MindWorks] wrote:

>Useless use of cat! Try:
>
> perl -F\\$ -nae '$F[1] =~ s/,/*/g; print join("\$", @(protected))' file
>  
>

I know I'm name dropping, but Brian Kernighan said the same thing some
time ago ('83, I think, but it was a while ago.).   He was commenting on

"cat xxx | yyy" vs "yyy < xxx" (or even "<xxx yyy").

Having thought about it, his conclusion was that you shouldn't worry
about it.   With something like the perl script, the performance
advantage is minimal.   On the other hand, "cat file | awk
'fifty-line-awk-script'" is more likely to be readable than "awk
'fifty-line-awk-script" file".   My personal style depends on how I'm
feeling: I might like the challenge of using just the shell or just sed,

or I might want to try a different approach.   Or I might be writing
something that has to be maintained -- in which case clarity and
readability move way up the list.

jch

--
Taroon-list mailing list
Taroon-list@(protected)
http://www.redhat.com/mailman/listinfo/taroon-list



--
Taroon-list mailing list
Taroon-list@(protected)
http://www.redhat.com/mailman/listinfo/taroon-list

Earn $52 per hosting referral at Lunarpages.