Parsing each file of a directory to change once string instance to another

[z28]

Monks, I need you again in this hour, when this change is so critical, and my lunch break so near...


I loop through /home/onyx2/www/ and get all files with an .shtml extension. This works.

I open every file, one at a time. This works.

I run the regexp to change out foo-fuu.net with fuuonline.com and it does not work.

What gives? Code below:

#!/usr/bin/perl

use strict;

my @list = glob("/home/onyx2/www/*.shtml");

foreach my $file (@list) {

   open FILE, "$file" or die "open: $!";

   for (<FILE>) {  
     $_ =~ s%foo\-fuu\.net%fuuonline\.com%ig;
     print FILE $_;
     }

   close FILE;

}

[rah]

How about a one-liner?

perl -p -i -e 's %foo\-fuu\.net%fuuonline\.com%g' /home/onyx2/www/*.sh
+tml

[metadoktor]

You opened the file for reading but you're trying to write to it too!

You need to write your data out to another file.

metadoktor

"The doktor is in."

[z28]

Ah! I want to write to the same file that I just opened. Is this possible?

[Anonymous Monk]

{local($^I,@ARGV)=('.bak',@list);
  while( <> ){
    s%foo\-fuu\.net%fuuonline\.com%ig;
    print;
  }
}