Try something like this
open IN, "/path/to/file.txt" or die "Can't find input file: $!";
open OUT, ">/path/to/ouput.txt" or die "Can't create output file: $!";
$add_this = " node";
while (<IN>) {
chomp;
print OUT "$_$add_this\n";
}
close IN;
close OUT;
-----Original Message-----
From: Prasanthi Tenneti [mailto:[EMAIL PROTECTED]]
Sent: 26 November 2001 15:14
To: [EMAIL PROTECTED]
Subject: adding a word
hi,
I want to add a word at each end of the line of a file.
my file is like this
packet1.rpm
packet2.rpm
packet3.rpm
packet4.rpm
I want to add 'Node' word at the end of each line.
So it should be like this
packet1.rpm node
packet2.rpm node
packet3.rpm node
packet4.rpm node
pls help me.
thank u.
br.
prasanthi
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------Confidentiality--------------------------.
This E-mail is confidential. It should not be read, copied, disclosed or
used by any person other than the intended recipient. Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful. If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
