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++
- Prev Entry:覚えておくと便利なgitのtipsをいくつか
- Next Entry:URI::Find