HTMLファイルにユニークなナンバーを埋め込む方法

質問

• 現在、１つのサイトを全てローカルに保存した状態なのですが、このサイトの全てのhtmlファイルに、ユニークなナンバーを埋め込んでやりたいのです。ユニークナンバーは別ファイルで保存してあります（csvファイルです）
• 現在のサイトの全てのhtmlファイルを検索し、ナンバーを埋め込んだ上で、元のディレクトリ構成を保ったまま、別場所に丸ごと出力することは可能でしょうか？（実行後には、元サイトと構成が全く同じで、ナンバーが埋め込まれたサイトが作成される）再起などを使用すればいいのだとは思うのですが、どう組んだものか正直見当がつかなかったため、質問させていただきました。
• ご教授いただければ幸いです。よろしくお願いいたします。

回答No.3

thatsthat

最初のwhile(<>){～}の部分では、csvファイルを読み込んで、
ハッシュ変数%noに格納しています。
ご提示いただいたcsvファイルの例ですと、
　$no{'index.html'}='<!--1-->';
　$no{'a/index.html'}='<!--2-->';
　$no{'a/aa/nantoka.html'}='<!--3-->';
　$no{'b/index.html'}='<!--4-->';
　～
という状態のハッシュを作っています。
while(<>)の<>は、
(ものすごく端折って書くので詳しい事はどこかで調べて下さい)
perl test.pl data.csv のような形で実行した場合に、
１回目の<>でdata.csvの１行目を、2回目で2行目を・・・
と、入力行が無くなるまで読んで来てくれるものです。
　open CSV,"<data.csv";
　while(<CSV>){～}
　close CSV;
と書くのと動きは同じですね。
この場合は、<>を使ったのは、
書くのが楽だから、というだけの理由です(^^;

補足

ありがとうございました！！
ようやく理解できました。なるほど…

そして無事にcsvを読み取ることが出来、エラーも取れて動いた！…のですが…

CVS中index.htmlがdisk上に存在しません\n
CVS中a/index.htmlがdisk上に存在しません\n
CVS中b/index.htmlがdisk上に存在しません\n
CVS中以下略

orz

csv内に書かれている全てのアドレスで上記の文が発生してしまいました。
もちろん、各htmlにユニークナンバーは挿入されておりません。

…うーん、何か根本的に勘違いしているのでしょうか…？

>my $srcpath="/somewhere/src/";
>my $destpath="/somewhere/dest/";

ここが入力と出力…ということだと思いますので、test.plと同階層にそれぞれ/somewhere/src/、/somewhere/dest/とフォルダを作成し（応用力０ですが、間違いないと思いまして）
/somewhere/src/上にサイトを丸ごと配置したのですが…そしてそのほかは何も触っておりません。

>foreach my $fn (keys %no){
>　print "CVS中 $fn がdisk上に存在しません\n";
>}

結果を見ると、ここに入っているのだとは思うのですが、よく見るとこの箇所、if分などで分岐して来ている訳ではないので、
絶対に通りそうな気がするのですが、そうすると「CVS中～」という分は確実に表示されてしまう、ということでしょうか…？

本当に何度もすみません。
時間の余っているときでかまいませんので、どうか不出来な私に付き合ってやってください…orz