[JP]の検索結果
コメント内のURLを自動的にリンクする処理の正規表現が、よく見るとかなり怪しかったの少し調べてみたのですが、それほど正確でなくてもいいと言うのであれば、
s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+
で良いみたいです。
なので、PerlでURLを自動的にリンクする処理は以下のような感じになります。
my $pattern = "s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+";
$text =~ s/($pattern)/<a href="$1">$1<\/a>/g;
ちなみに、正確なhttp URL の正規表現はこうらしい。
my $digit = q{[0-9]};
my $upalpha = q{[A-Z]};
my $lowalpha = q{[a-z]};
my $alpha = qq{(?:$lowalpha|$upalpha)};
my $alphanum = qq{(?:$alpha|$digit)};
my $hex = qq{(?:$digit|[A-Fa-f])};
my $escaped = qq{%$hex$hex};
my $mark = q{[-_.!~*'()]};
my $unreserved = qq{(?:$alphanum|$mark)};
my $reserved = q{[;/?:@&=+$,]};
my $uric = qq{(?:$reserved|$unreserved|$escaped)};
my $query = qq{$uric*};
my $pchar = qq{(?:$unreserved|$escaped|} . q{[:@&=+$,])};
my $param = qq{$pchar*};
my $segment = qq{$pchar*(?:;$param)*};
my $path_segments = qq{$segment(?:/$segment)*};
my $abs_path = qq{/$path_segments};
my $port = qq{$digit*};
my $IPv4address = qq{$digit+\\.$digit+\\.$digit+\\.$digit+};
my $toplabel = qq{(?:$alpha|$alpha(?:$alphanum|-)*$alphanum)};
my $domainlabel = qq{(?:$alphanum|$alphanum(?:$alphanum|-)*$alphanum)};
my $hostname = qq{(?:$domainlabel\\.)*$toplabel\\.?};
my $host = qq{(?:$hostname|$IPv4address)};
my $http_URL = qq{http://$host(?::$port)?(?:$abs_path(?:\\?$query)?)?};
my $pattern = $http_URL;
ぐはっ!
http://www.din.or.jp/~ohzaki/perl.htm#httpURL
s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+
で良いみたいです。
なので、PerlでURLを自動的にリンクする処理は以下のような感じになります。
my $pattern = "s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+";
$text =~ s/($pattern)/<a href="$1">$1<\/a>/g;
ちなみに、正確なhttp URL の正規表現はこうらしい。
my $digit = q{[0-9]};
my $upalpha = q{[A-Z]};
my $lowalpha = q{[a-z]};
my $alpha = qq{(?:$lowalpha|$upalpha)};
my $alphanum = qq{(?:$alpha|$digit)};
my $hex = qq{(?:$digit|[A-Fa-f])};
my $escaped = qq{%$hex$hex};
my $mark = q{[-_.!~*'()]};
my $unreserved = qq{(?:$alphanum|$mark)};
my $reserved = q{[;/?:@&=+$,]};
my $uric = qq{(?:$reserved|$unreserved|$escaped)};
my $query = qq{$uric*};
my $pchar = qq{(?:$unreserved|$escaped|} . q{[:@&=+$,])};
my $param = qq{$pchar*};
my $segment = qq{$pchar*(?:;$param)*};
my $path_segments = qq{$segment(?:/$segment)*};
my $abs_path = qq{/$path_segments};
my $port = qq{$digit*};
my $IPv4address = qq{$digit+\\.$digit+\\.$digit+\\.$digit+};
my $toplabel = qq{(?:$alpha|$alpha(?:$alphanum|-)*$alphanum)};
my $domainlabel = qq{(?:$alphanum|$alphanum(?:$alphanum|-)*$alphanum)};
my $hostname = qq{(?:$domainlabel\\.)*$toplabel\\.?};
my $host = qq{(?:$hostname|$IPv4address)};
my $http_URL = qq{http://$host(?::$port)?(?:$abs_path(?:\\?$query)?)?};
my $pattern = $http_URL;
ぐはっ!
http://www.din.or.jp/~ohzaki/perl.htm#httpURL
59Tracker 4 として公開する予定の開発版のリポジトリを更新しました。
今回の更新の主な変更点は、以下のとおりです。
・再構築時のオプション指定機能の追加
・検索結果の1ページ分をRSS2.0形式で出力する機能の追加
・検索インデックス作成時のパフォーマンス向上
svn リポジトリ
http://buzei@svn.sourceforge.jp/svnroot/gokutracker
今回の更新の主な変更点は、以下のとおりです。
・再構築時のオプション指定機能の追加
・検索結果の1ページ分をRSS2.0形式で出力する機能の追加
・検索インデックス作成時のパフォーマンス向上
svn リポジトリ
http://buzei@svn.sourceforge.jp/svnroot/gokutracker
GNU Compiler Collection(GCC)を監督するGCC Steering Committeeは1月26日、米Googleの「Go」をサポートする方針を発表した。早ければ「GCC 4.5」でマージされるという。ブックマーク先へ
59Tracker 4.0/59bbs 3.0 としてリリースするつもりの、59Tracker/59bbs 開発版のリポジトリを公開しました。リポジトリにはSubversionを利用しており、ソースの取得はそれぞれ以下のコマンドで取得できます。59Trac...
世界的ベストセラーとなった「ロングテール」の著者で、米ワイアード誌編集長「クリス・アンダーソン」の最新作「フリー〈無料〉からお金を生みだす新戦略」。「フリーミアム(freemium)」とは、「フリー(無料)」...
週刊SPA!11/17号で「たかだかtwitterレベルの発想」と「Twitter」見下した発言をしていた、元2ちゃんねる管理人の西村博之(ひろゆき)氏が、「Twitterクローン」を開発してるらしい。ひろゆき氏が「Twitterクローン...
はてなが、Twitter のつぶやきから自動的にはてなブックマークにブックマークできる、「Twitter 連携機能」をリリースしたTwitter との連携機能は、はてなブックマークの設定画面から、「外部サイト連携」タブで Twi...
アクセスランキング
今日のアクセスランキング TOP 10
- Google(グウグル)とは (4 PV)
- FC2WiFI (3 PV)
- 爆益を狙うハイリスクハイリターンのナンピンマーチンEA「Hyper Dollar MT5」 (3 PV)
- Oracle(オラクル)が Linux のサポートサービスを販売 (3 PV)
- ニコニコ動画 (3 PV)
- YouTube(ユーチューブ)日本版 - 動画共有、ライブ配信 (3 PV)
- PENTAX(ペンタックス)、デジタル一眼レフカメラ「K-x」 (2 PV)
- JavaScript 書籍 (2 PV)
- [将棋]NHK杯2回戦第5局は藤井聡太四段が右四間飛車で森内俊之九段のオワコン矢倉に完勝 (2 PV)
- 「国家非常事態」トランプ米大統領が日本に24%の関税を課すと表明 日経平均株価が急落 (2 PV)
今月のアクセスランキング TOP 10
- SQLのSELECT文で先頭から上位(TOP)10件のレコードを取得する方法(SQL Server、Oracle、MySQL、PostgreSQL) (72 PV)
- 2NN 2ちゃんねるニュース速報+ナビ (59 PV)
- 仲値トレードが簡単にできる無料EA「NAKANE3」 #MT4 (47 PV)
- 裁量トレードを半自動化する無料のMT5向け裁量トレード支援ツール(裁量補助EA)「PositionKeeper MT5」 #FX (27 PV)
- Google News (グーグルニュース)日本版 (25 PV)
- Google Finance(グーグルファイナンス)- リアルタイム株価情報、金融ニュース、日本株 (24 PV)
- [PR]noteで販売している自作EAの一覧 (23 PV)
- MT4向け1ポジブレイクアウトEA「HEADLINE」オープンソースライセンス(GPL3)で公開 #USDJPY (21 PV)
- 爆益を狙うハイリスクハイリターンのナンピンマーチンEA「Hyper Dollar MT5」 (18 PV)
- USTREAM(ユーストリーム) 日本語版 無料のライブ映像配信サービス (18 PV)
アクセス統計
ディレクトリ
関連サイト

