Mae向きなブログ

Mae向きな日記のブログ版。ようやくこちらに移行してきました。

ホームページの引越し

ホームページの引越し作業を行った。
以下は、旧ホームページのリンクで古いところを一括に変換するのに使用したスクリプト

久しぶりにPerlを書いたら、忘れていて全然書けない。ファイル処理の方法も怪しかったので、シェルスクリプトでごまかした(^^)。

#!/bin/sh
# movehp.sh

FILES=`ls *.html`

for filename in $FILES;do
    $HOME/bin/movehp.pl < $filename > $filename.new
    mv $filename.new ${filename%.new}
done
#!/usr/bin/perl
# movehp.pl

while (){
    $_ =~ s|http://www.geocities.co.jp/SiliconValley-SanJose/1843/|http://www.geocities.jp/maehrm/|g;
    print "$_";
}