« HTTPリクエストヘッダをログへ出力するJSPファイル | メイン | Yahoo!検索Webサービスを利用していろいろなプログラミング言語の Love Hate Ratio を求める »

2007年02月12日

古いページから新しいページへリンクさせるHTMLファイルを生成

先日、ブログのアーカイブのパスを変更したので、古いページから新しいページへリンクするようにした。
古いページをすべて上書き。新しいページへのリンクだけのページにする。

perl のスクリプトで。


my $input_dir  = 'zurazure2';
my $output_dir = "${input_dir}out";
opendir (DIR, $input_dir) or die "opendir失敗: $!";
while($file = readdir(DIR)){
  if($file ne '.' and $file ne '..'){
    #print "$file\n";
    $doc = << "____EOD____"; #
<html>
<body>
<a href="../${file}">This page moved.</a>
</body>
</html>
____EOD____
    open (FILE, "> ${output_dir}/${file}") or die "open失敗: $!";
    print FILE $doc;
    close FILE;
  }
}
closedir DIR;

Perl のヒアドキュメントでちょっとハマる。
シングルクォーテーションでくくっててうまく出力されない。

ヒアドキュメントでも引用マーカーをどの引用符で囲うかで文字列の解釈方法が違うようです。また、引用マーカーの引用符は省略する事が多く、ダブルコーテーションで囲った場合と同じ扱いになるようです。

小人さんへの置き手紙: perl のヒアドキュメント

ダブルクォーテーションにしたら思った通りの動作をしてくれた。

tags :

投稿者 NI-Lab. Twitter: @nilab : 2007年02月12日 13:57

Please post your comments -> Ido-Batarian BBS
コメントはこちらの Ido-Batarian BBS へどうぞ。

« HTTPリクエストヘッダをログへ出力するJSPファイル | メイン | Yahoo!検索Webサービスを利用していろいろなプログラミング言語の Love Hate Ratio を求める »

人気ブログランキング - NI-Lab.'s ヅラッシュドット [Valid RSS]