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

            }
        }
        else{print "n[Warn] Can not open the output file <$bo>: $!";exit}
    }

    print OUT "$cont";
    close OUT;
}
sub pmkpath
{
    my @p=split(//,shift);
    my $pa=$p[0];
    my $m=$#p+1;
    my $t;
    for($t=1; -e $pa;$t++){$pa.=''.$p[$t]}
    unless(mkdir $pa){return 0}
    for(;$t<$m;$t++)
    {
        $pa.=''.$p[$t];
        unless(mkdir $pa){return 0}
    }
    return 1
}
sub Cexcept
{
    unless($except){return $replacemen}
    my $con;
    ($con)=@_;
    if($con=~/$excep/){return $con}else{return $replacemen}    
}


打包的exe文件下载