#! /usr/bin/perl
# 以下で指定されたルールで置換を行う。

$outfile= ".replace.tmp";
foreach (@ARGV){
    $infile= $_;
#    system("cp -p $_ ~/Waste/$infile.bak");
    open IN, "<$infile";
    open OUT, ">$outfile";
    while(<IN>){
##	if ($_ =~ s/file=\.\//file=/g){  ####### <-- 置換ルール #########
##	if ($_ =~ s/\\subsec/\\sec/g){  ####### <-- 置換ルール #########
	if ($_ =~ s/SRC="(.+)\.png"/SRC="$1.jpg"/g){  ## <-- 置換ルール ##
	    print $infile.": ".$_;
	}
	print OUT $_;
    }
    close IN;
    close OUT;
    rename $outfile, $infile;
}
