Webtech Walker

perlの置換でeオプション

テキストのURLにリンクを貼って、リンクテキストだけURLデコードするっていう置換をしたかったんだけど、どうすればいいかわかんなくてsugyanに教えてもらった。

use Regexp::Common qw/URI/;
use URI::Escape;

$text =~ s!($RE{URI}{HTTP}{-scheme =>'(https|http)'})!qq[<a href="$1">] . uri_unescape($1) . qq[</a>]!ge;

なるほど。eオプションの使い方が今いちわかってなかった。sugyan++

このエントリーをはてなブックマークに追加