Perlについての質問箱 34箱目 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
600:デフォルトの名無しさん 08/03/03 17:58:47 そっか！e修飾子を利用した時は置換部分は関数以外は入れたらダメなんですね。 $i =~ s/\[\[(.+?)\]\]/<a href="&url_enc($1)">$1<\/a>/eg; だとエラーが出るんで何でだろうとずっと思ってたんです。 ありがとうございます。勉強になりました。 601:デフォルトの名無しさん 08/03/03 18:25:15 >>600 自分で '%' . unpack('H2', $1) なんてのを入れてるじゃん。 sub html_escape { 　　my $str = $_[0]; 　　$str =~ s/&(?!(?:\w+|#(?:[Xx][0-9A-Fa-f]+|[0-9]+));)/&/g; 　　$str =~ s/([\x00-\x09\x0B\x0C\x0E-\x1F"'<>\x7F])/&#${ \ ord $1 };/g; 　　$str; } sub uri_escape { 　　my $str = $_[0]; 　　$str =~ s/%(?![0-9A-Fa-f][0-9A-Fa-f])/%25/g; 　　$str =~ s/([\x00-\x20"'<>\\^`{|}\x7F-\xFF])/ sprintf '%%%02X', ord $1 /eg; 　　$str; } $i =~ s{ \[\[ (.+?) \]\] } { 　　my($url, $face) = ($1, $1); 　　$url = uri_escape($url); 　　$face = html_escape($face); 　　qq|<a href="$url">$face</a>|; }egx;

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4959日前に更新/153 KB
担当:undef