Assume that $file is the names file that you have.
!/usr/bin/perl -w
$file = qq(./file);
$newfile = qq(./newfile);
open FILE, "$file" or die "Cannot open file $file: $!\n";
open INFILE, ">$newfile" or die "Cannot open file $newfile: $!\n";
while (<FILE>) {
chomp($_);
s/(.*)/$1\@feathertrip\.net/i;
print INFILE "$_\n";
}
close(FILE);
close(INFILE);
You can add an ulink and rename directive to this to get it back to the
original file name....
-James
> Hi I need to add a word to the end of a word inside a
> file.
>
> HELP PLEASE
>
> for example: I will read a file with these names
> july
> tony
> richard
>
> then I want to add the following to the name
> @minime.com. So it will look like [EMAIL PROTECTED]
>
> =====
> Peter Lemus
> UNIX/NT Networks Engineer
> [EMAIL PROTECTED]
>
> --The universe is way too big for us to be alone; the real question is; who
is out-there, besides us "humans"?
> --A wise man will be master of his mind, a fool will be its slave.
Dr.David Schwartz.
> --Enjoy every moment of the day; Live like as if today was your last day
alive, and perhaps, it might be.
>
> __________________________________________________
> Do You Yahoo!?
> Send your FREE holiday greetings online!
> http://greetings.yahoo.com
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
