Date: Thu, 21 Aug 2008 09:11:50 -0400 From: Steve Bertrand <steve@ibctech.ca> To: Matthias Apitz <matthias.apitz@oclc.org> Cc: Joseph Olatt <joji@eskimo.com>, freebsd-questions@freebsd.org Subject: Re: sed/awk, instead of Perl Message-ID: <48AD6996.8040502@ibctech.ca> In-Reply-To: <20080821130154.GA11071@rebelion.Sisis.de> References: <48AD63B7.8090107@ibctech.ca> <20080821055429.A26910@eskimo.com> <20080821130154.GA11071@rebelion.Sisis.de>
next in thread | previous in thread | raw e-mail | index | archive | help
Matthias Apitz wrote:
> El día Thursday, August 21, 2008 a las 05:54:29AM -0700, Joseph Olatt escribió:
>
>> Try the following:
>>
>>
>> cat t.txt | awk -F\t '{split($1, arr, "."); printf("%s_%s@%s\n", arr[
>> 1], arr[2], $2);}'
>>
>> where t.txt:
>> john.doe example.com
>
> Despite of the magic awk(1) or while-loops: this is all UUOC Award;
> http://en.wikipedia.org/wiki/Cat_(Unix)#Useless_use_of_cat
Yeah, yeah :)
I know that:
# grep username /var/log/radius.log
...is much, much better than:
# cat /var/log/radius.log | grep username
...but that is just semantics, relative to the intent and purpose of
this excercise.
Besides, our mail servers don't do enough work, so using cat in the
wrong context when modifying tens of thousands of lines in a file is
good exercise for my boxes ;)
Steve
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?48AD6996.8040502>