HTMLの書き直す

質問

HTMLファイルにある一部分のリンクをハイライトしたいですが（例えば：色変わりなど）、perlでどうしたらいけますか？よろしくお願いします。

例えば：<IMG ALT="dot" WIDTH="15" HEIGHT="18" ALIGN="bottom" SRC="/images/sky-dot.gif"><font size="2">
<a href="interesting/">面白いページ</a></font><br><br>
から
<IMG ALT="dot" WIDTH="15" HEIGHT="18" ALIGN="bottom" SRC="/images/sky-dot.gif">
<font size="2" color=#666666><a href="interesting/">面白いページ</a></font><br><br>

回答No.2

noname#227796

ファイルから１行読み込んで、その行を正規表現で引っかけて置換してやればいいかと。

open(OUT,">c:\newpage\hogehoge.html");
open (FILE,"c:\oldpage\hogehoge.html");
while(<FILE>) {
s/<IMG ALT="dot" WIDTH="15" HEIGHT="18" ALIGN="bottom" SRC="\/images\/sky-dot.gif"><font size="2">/<IMG ALT="dot" WIDTH="15" HEIGHT="18" ALIGN="bottom" SRC="\/images\/sky-dot.gif"><font size="2" color="#666666">/ig;
print OUT $_;
}
close(FILE);
close(OUT);

こんな感じかな。
元のファイルを直接書き換えるのは、置換が間違ってたときに号泣ものなので、別の場所に出力するようにした方が良いよ。
まあ、この場合はスタイルシートを使うようにした方が後々メンテが楽なので良いと思うけどね。

お礼

わかりましたが、どうもありがとう

補足

超初心者ですが、スタイルシートの使い方また調べたいと思いますが、何かアドバイスがございましたら、宜しくお願いします。

回答No.1

noname#25358

ソース内のＨＴＭＬをそのまま書き直せばいいんです。
　ただし <font>タグは <a>タグの内側にもっていった方がいいです。

補足

ありがとうございました。初心者ですので、分からないところ多いですが、どうぞよろしくお願いします。
質問の意味は、PERLを使って、どうしたら（たとえば如何な関数を使って）、ファイル内のリンクの文字（例：面白いページ）を探して、自動的にHTMLファイルを変換できることです。