OPEN file

[Assaf Spanier]

Hi I'm trying to replace the string 'aaa' to 'bbb' in my files
the fallowing scrip DO NOT do the job, If anyone can tell me
where is my mistake, I will be grateful.

---------------------------
!/usr/bin/perl -w


open OUT, "+</tmp/file" or die "Can't open /tmp/file \n";

while (<OUT>) {
  $_ =~ s/aaa/bbb/g;
}
  close OUT;
----------------------------------

Asaf.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]