くだすれPerl（超初心者用）2

くだすれPerl（超初心者用）2 at PHP

193:181
08/05/11 17:10:05
>>190
「くやしいのでモジュール使うやりかたでもがんばってみる」方のようなので
ごにょごにょするときの参考にしてみてください。

use URI; # URIモジュールさん召喚。
my $RSS_BASE_URI2 = 'URLﾘﾝｸ(example.com)'; # 例。
my $str = join('', <DATA>); # __DATA__ 以下の割箸をまとめて $str に袋詰めします。

# >>180に基づいてみました。
$str =~ s/href="([^"]+?)"/'href="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;
$str =~ s/src="([^"]+?)"/'src="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;

print $str, "\n";
# 出力:
# <img src="URLﾘﾝｸ(example.com)">
# <a href="URLﾘﾝｸ(example.com)">latest</a>
# <a href="URLﾘﾝｸ(example.com)">Test Script</a>

__DATA__
<img src="../../../diary/././img/././test.jpg">
<a href="../../../diary/latest">latest</a>
<a href="URLﾘﾝｸ(example.com)">Test Script</a>

次ページ

続きを表示

1を表示