[Perl]文字/代码批量替换工具

        if(/^s*-r=(.+)/){$replacement=$1}
        if(/^s*-e=(.+)/){$except=$1}
        if(/^s*-i=(.+)/){$gi=$1}
        if(/^s*-o=(.+)/){$go=$1}
        if(/^s*-c=(.+)/){$Checktype=$1}
        if(/^s*Insensitive/){$insensitive=1}
        if(/^s*Global/){$global=1}
        if(/^s*Match=(.+)/){$match=$1}
        if(/^s*Replacement=(.+)/){$replacement=$1}
        if(/^s*Except=(.+)/){$except=$1}
        if(/^s*Input=(.+)/){$gi=$1}
        if(/^s*Output=(.+)/){$go=$1}
        if(/^s*CheckType=(.+)/){$Checktype=$1}
    }
}

my $para=' '.join(' ',@ARGV);
if($para=~/ -I */){$insensitive=1}
if($para=~/ -G */){$global=1}
my @ti=split(/ -i */,$para);
if($ti[1]){($gi)=split(/ -(o|i|c|e|m|r|I|G)/,$ti[1])}
unless($gi){print "No "Input path" parameter!";exit}
my @to=split(/ -o */,$para);
if($to[1]){($go)=split(/ -(o|i|c|e|m|r|I|G)/,$to[1])}
unless($go){print "No "Output path" parameter!";exit}
my @tc=split(/ -c */,$para);
if($tc[1]){($Checktype)=split(/ -(o|i|c|e|m|r|I|G)/,$tc[1])}
my @te=split(/ -e */,$para);
if($te[1]){($except)=split(/ -(o|i|c|e|m|r|I|G)/,$te[1])}
my @tr=split(/ -r */,$para);
if($tr[1]){($replacement)=split(/ -(o|i|c|e|m|r|I|G)/,$tr[1])}

unless($match){$match="<iframe[^>]*>[sS]*?</iframe>";
$insensitive=1;
$global=1}

my @tm=split(/ -m */,$para);
if($tm[1]){($match)=split(/ -(o|i|c|e|m|r|I|G)/,$tm[1])}
unless($match){print "No "Match Pattern" parameter!";exit}

my $checktyp='(';
$Checktype=~s/././g;
$Checktype=~s/|/)|(/g;
$checktyp.=$Checktype.')$';

my $excep;
if($except){
$excep=$except;
$excep=~s/////g;
$excep=~s/././g;
$excep=~s/|/|/g;
$excep=~s/[/[/g;
$excep=~s/]/]/g;
$excep=~s/(/(/g;
$excep=~s/)/)/g;
$excep=~s/$/$/g;
$excep=~s/?/?/g;
}

my $replacemen;
if($replacement){
$replacemen=$replacement;
$replacemen=~s/////g;
$replacemen=~s/././g;
$replacemen=~s/|/|/g;
$replacemen=~s/[/[/g;
$replacemen=~s/]/]/g;
$replacemen=~s/(/(/g;
$replacemen=~s/)/)/g;
$replacemen=~s/$/$/g;