Date: Thu, 21 Aug 2008 05:54:29 -0700 From: Joseph Olatt <joji@eskimo.com> To: Steve Bertrand <steve@ibctech.ca> Cc: freebsd-questions@freebsd.org Subject: Re: sed/awk, instead of Perl Message-ID: <20080821055429.A26910@eskimo.com> In-Reply-To: <48AD63B7.8090107@ibctech.ca>; from steve@ibctech.ca on Thu, Aug 21, 2008 at 08:46:47AM -0400 References: <48AD63B7.8090107@ibctech.ca>
next in thread | previous in thread | raw e-mail | index | archive | help
On Thu, Aug 21, 2008 at 08:46:47AM -0400, Steve Bertrand wrote:
> I'm frequently having to modify/convert email addresses from one
> format/domain to another.
>
> Usually, I slap together a quick Perl script to do this for me. I don't
> do it frequently enough to keep track which one of my scripts does this
> for me, so I'm continuously re-inventing the wheel.
>
> Some of the time, I use sed/awk to do this, but that usually requires a
> few passes over a few files.
>
> To put it plainly, can anyone, if it's possible, provide a single line
> sed/awk pipeline that can:
>
> - read email addresses from a file in the format:
>
> user.name TAB domain.tld
>
> - convert it to:
>
> user_name@example.com
>
> - write it back to either a new file, the original file, or to STDOUT
>
> Regards,
>
> Steve
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
regards,
joseph
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20080821055429.A26910>