正規表現(~を含まないものにマッチ)
Perlの正規表現について質問です。
画像<img src="http://hogehoge.com/img/gokuu.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="http://hogehoge.com/img/pikkoro.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="http://hogehoge.com/img/bejiita.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="http://hogehoge.com/img/gohan.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="http://hogehoge.com/img/buruma.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
↓ 処理後 ↓
画像<img src="gazo_new1.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="gazo_new2.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="gazo_new3.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="gazo_new4.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
画像<img src="gazo_new5.jpg" border=0><a href="http://hogehoge.com/">hogehoge</a><br>
(変更した画像:gokuu.jpg,pikkoro.jpg,bejiita.jpg,gohan.jpg,buruma.jpg,)
以上のように
画像URL部分のみを gazo_new(連番).jpg に変更させ、
変更前の画像URL一覧を表示させるスクリプトを書いてみました。
$htmldata にHTMLの全データが格納されているとします。
$i=1;
while($htmldata=~/(<\s*img.*?src.*?=["\s]*)([.\/]*?\/)?((?:(?!gazo_new)[^"\s>])*)?["\s]?.*?>/i){
$imgurlparts .="$3,";
$htmldata=~ s/(<\s*img.*?src.*?=["\s]*)((?:(?!gazo_new)[^"\s>])*)?(["\s]?.*?>)/$1gazo_new$i.jpg$3/i;
$i++;
}
$htmldata .="(変更した画像:$imgurlparts)";
どうにもうまく動きません。
何卒ご教示をお願い致します。
お礼
佐賀にありました。多久市のスパリゾート ゆうらくでした。 もう営業していないようです。 http://www.yu-raku.net/map.htm 写真で見ると結構小さい観覧車ですね。 いろいろとありがとうございました。