add text to each line of a file

this might not even be cool, but it started as a "I bet you can't do that as a a one-liner" from a cow-worker.

we wanted to turn our usernames into email addresses for our domain, from the NIS database.
It isn't entirely in perl, but it is pretty useful for me :)

ypcat passwd | awk -F: '{print $1}' | perl -p -e' ; chomp; print "$_\@
+domain.local > oneliner.out
[download]

hope this helps someone else out there....
stevenrh

Comment on add text to each line of a file Download Code

Replies are listed 'Best First'.
Re: add text to each line of a file by thor (Priest) on Mar 10, 2005 at 19:30 UTC
What about `ypcat passwd \| perl -F: -lane 'print "$F[0]\@domain.local"' > oneliner +.out` [download] ? :-) thor `Feel the white light, the light within Be your own disciple, fan the sparks of will For all of us waiting, your kingdom will come`	[reply] [d/l]
Re^2: add text to each line of a file by ambrus (Abbot) on Mar 10, 2005 at 22:07 UTC
Why chomp? I belive the -l option chomps the line automatically. (See perlrun.)	[reply]
Re^3: add text to each line of a file by thor (Priest) on Mar 11, 2005 at 01:08 UTC
You're absolutely right! I hardly ever use -n or -p, so I forgot about the "other" effect of -l. Thanks! thor `Feel the white light, the light within Be your own disciple, fan the sparks of will For all of us waiting, your kingdom will come`	[reply]
Re: add text to each line of a file by b10m (Vicar) on Mar 10, 2005 at 19:36 UTC
Why use Perl at all? `ypcat passwd \| awk -F: '{ print $1."@domain.local" }' > oneliner.out` [download] -- b10m All code is usually tested, but rarely trusted.	[reply] [d/l]
Re^2: add text to each line of a file by ambrus (Abbot) on Mar 10, 2005 at 22:04 UTC
Why use awk at all? ypcat passwd \| perl -wne '/:/ and print "$`\@domain.local\n";' [download] or `ypcat passwd \| cut -d: -f1 \| sed 's/$/@mydomain.local/'` [download] or `ypcat passwd \| sed 's/:.*/@domain.local/'` [download]	[reply] [d/l] [select]
Re^3: add text to each line of a file by smalhotra (Scribe) on Mar 14, 2005 at 22:37 UTC
No! Not the dreaded $` I have trained myself so well to not use them that it now scares me to see it. `$will->code for @food or $$;`	[reply] [d/l] [select]
Re^3: add text to each line of a file by mw (Sexton) on Mar 30, 2005 at 11:50 UTC
And to complete the sed: `ypcat passwd \|sed 's/:.*/@domain.local/'` [download]	[reply] [d/l]


Don't ask to ask, just ask
	PerlMonks