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

質問

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

回答No.2

thatsthat

番号を各ファイルの一行目に入れる場合の例です。
unixならfindの代わりにopen LS,"ls -1R ～|"したりできますが、
それなら全部シェルで書けそうですし・・・。
perlだけで書くとこんな感じになるかと思います。
(自下げに全角スペースを入れてあるので、コピペする時はご注意を。)
------
use File::Find;
use strict;

my $srcpath="/somewhere/src/";
my $destpath="/somewhere/dest/";
my %no=();
while(<>){
　chop;
　my @line=split /,/;
　$no{$line[0]}=$line[1];
}

find(sub{
　my $hkey=substr($File::Find::name,length($srcpath));
　my $outfile="$destpath$hkey";
　if(-f $_ && /\.html?$/){
　　if(exists $no{$hkey}){
　　　open IN,$File::Find::name;
　　　open OUT,">$outfile";
　　　print OUT $no{$hkey},"\n";
　　　while(<IN>){ print OUT $_; }
　　　close OUT; close IN;
　　　delete $no{$hkey};
　　}else{
　　　print "$hkey が CSV中に書かれてないです\n";
　　}
　}elsif(-d $_){
　　mkdir "$outfile",0775;
　}
}, $srcpath );

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

補足

ありがとうございました！！

…しかし、私のスキル不足（というかすいません、ほぼ初心者状態でして）どのコードがどのような動きを表しているのか、よく分からないところが出てしまいました。

>while(<>){
>　chop;
>　my @line=split /,/;
>　$no{$line[0]}=$line[1];
>}

具体的には、この部分の動作がイマイチ理解できませんでした…
恐らくはcsv関係のもので、この前段階でcsvファイルを読み込んでこなければならないのだとは思うのですが…

そこから下は、照合、埋め込み作業をしているのだという事は分かります（細かい動作までは、少しよく分からないところがあるのですが、大体理解できました）

せっかく教えていただいたのに、本当にすみません。
よろしければ、さらに詳しくご教授願えないでしょうか…？

よろしくお願いいたします。