x.pl

来自「Linus guide, Linus guide, Linus guide,」· PL 代码 · 共 12 行

#!/usr/bin/perl

while ($fn=<*.html>) {
  $x = `cat $fn`;

  $x =~ s/jtg\@computers.iwz.com/jgo\@local.net/igs;
 
  open(FD, ">$fn");
  print FD $x;
  close FD; 
}