ホームページの引越し

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

久しぶりに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 "$_";
}