バックアップを元に戻す。 perl -e 'for(@ARGV){ ($nn)=/^(.*).bak$/; rename $_,$nn or die "cannot rename $_,$nn; $!"; }' *.bak

22:00〜25:00 手作業でやろうかと思っていたけど、めんどくなった*1ので、置換でごーっと。 こんな感じ。 perl -pi.bak \ -e 's/(<a.*?mailto:.*?>)//g;' \ -e 's/(<a.*?\.zip"*?>)//g;' \ data/photo/*.html *1:と、訂正漏れがありそう</a.*?\.zip"*?></a.*?mailto:.*?>

アスパラを食べる。