Re: add text to each line of a file

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.

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

Replies are listed 'Best First'.
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]


Problems? Is your data what you think it is?
	PerlMonks