Hey, On Mon, 15 Apr 2002, Amy Tanner wrote: > What's the simplest way to do the following in perl: > > Take as input a file. Search for a line containing a particular string. > Then append to that line. #!/usr/bin/perl # # AppLine.pl - Append stuff to line. # $LOOKFOR="Line Has This In It"; $APPEND="Append this"; while($line=<STDIN>) { if ($line =~ /$LOOKFOR/) { chomp ($LINE); # remove linefeed $line="$line$APPEND\n"; } print $LINE; } ---- Say you want to look in myfile.dat, you go % cat myfile.dat | ./AppLine.pl > newfile.dat Not tested, and you can do this better and use commanline arguments, but it's probably close. -Yaron --