问Perl搜索文件递归字符串和替换

EN

$ find . | grep .php | xargs ./xx1.pl

#!/usr/bin/perl

use strict;
use warnings;

undef $/;
for (@ARGV) {
        open(FILE,$_);
        my $content = <FILE>;
        close(FILE);
        my $beginning = '<script>var a=\'\'';
        my $end = '</script>';
        my $containing = 'hamoorabi.com';
        #$content =~ s/(<script>.*?)(hamoorabi.com)(.*?<\/script>)/$1$3/sg;
        #much better regex provided by ysth
        $content =~ s/\Q$beginning\E(?:(?!\Q$end\E).)*\Q$containing\E.*?\Q$end\E//gs;
        open(FILE,">$_");
        print FILE $content;
        close(FILE);
}

use strict;
use warnings;
use File::Find;

sub wanted {
  # Ignore anything that isn't a file
  return unless -f;
  # Ignore anything without a .php extension
  return unless /\.php$/;

  # Your filename is in $_. Your current directory is the 
  # one which contains the current file.
  # Do what you need to do.
  open my $fh, '<', $_ or die $!;
  ...;
}

use strict;
use warnings;

my $str = "<script>var a=''\; * hamoorabi.com * </script>";
$str=~s#<script[^>]*>((?:(?!<\/script>).)*)<\/script># my $script=$&;
$script=~s/^(.*)hamoorabi\.com(.*)$/$1$2/g;
($script);
#esg;
print $str;

my @array;
use Tie::File;
tie @array, 'Tie::File', "Input.php" || die "blabla";
my $len = join "\n", @array;
@array = split/\n/, $len;
untie @array;