[正規表現]の検索結果


掲示板などのスレッドやコメント欄に投稿されたYouTube動画のURLを埋め込みコードに変換する方法を、 ネットで検索していろいろ調べましたが、YouTube動画のURLは、http://www.youtube.com/watch?v={VID}とhttp://youtu.be/{VID}という 2種類の形式があるようで、イマイチうまくいきませんでした。

結局、以下のコードで埋め込みコードへの変換は出来ましたが、改良の余地がまだかなりありそうです。

sub _url_convert {
    my $str = shift;

    if ($str =~ m/http:\/\/www\.youtube\.com\/watch\?v=([a-zA-Z0-9]+).*/i) {
        my $vid = $1;
        $str =~ s/(http:\/\/www\.youtube\.com\/watch.*)/<iframe width="480" height="360" src="http:\/\/www.youtube.com\/embed\/$vid?rel=0" frameborder="0" allowfullscreen><\/iframe>/g;
    }
    elsif ($str =~ m/http:\/\/youtu\.be\/([-_a-zA-Z0-9]+)/i) {
        my $vid = $1;
        $str =~ s/(http:\/\/youtu\.be\/[-_a-zA-Z0-9]+)/<iframe width="480" height="360" src="http:\/\/www.youtube.com\/embed\/$vid?rel=0" frameborder="0" allowfullscreen><\/iframe>/g;
    }

    return $str;
}

正規表現クックブック
オライリージャパン 著者：Jan Goyvaerts,Steven Levithan


amazon.co.jpのカスタマーレビューを見る
powered by amalink


[2316] Posted by kagahiro at 2013/06/22 01:35:47
0 point | Link (1) | Trackback (0) | Comment (0)

Rakudo.orgとPerl 6開発チームが、アーリーアダプター向けのPerl 6ディストリビューション「Rakudo Star July 2010 Release」を公開した。

Rakudo Starは、Perl 6の文法や正規表現、イントロスペクション、オブジェクトモデル、ジャンクションとオートスレッドなど多くの機能が搭載されたPerl 6の実装で、仮想マシン「Parrot Virtual Machine 2.6」やRakudo Perl 6コンパイラ、Perl 6の各種ドキュメントを含んでいる。

Perl 6実装「Rakudo Star」リリース
Rakudo.org
[1984] Posted by kagahiro at 2010/07/31 00:18:27
0 point | Link (0) | Trackback (0) | Comment (0)

コメント内の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
[1792] Posted by kagahiro at 2010/03/22 14:48:13
0 point | Link (2) | Trackback (0) | Comment (0)

「RE2」は、動作が高速で「スレッドフレンドリー」な正規表現ライブラリ。ライセンスはNew BSD License。PerlやPCRE（Perl Compatible Regular Expressions）の正規表現のほとんどに対応している。正規表現ライブラリ...
[1782] Posted by kagahiro at 2010/03/16 17:00:33
0 point | Link (0) | Trackback (0) | Comment (0)

新プログラミング環境C#がわかる+使えるC#をどのように利用するべきかを、言語仕様のトピックごとに詳細に解説。C#によるプログラミングWindows 上Windowsフォーム(Windows.Forms)を有効活用するノウハウを詳解。上巻...
[744] Posted by kagahiro at 2006/07/13 04:00:29
0 point | Link (1) | Trackback (0) | Comment (0)

プログラミング言語「perl」の入門書や解説書です。初めてのperlperlの各種機能や言語仕様の基礎をていねいに解説した入門書。正規表現の解説の拡充など、perl学習者の実際的なニーズを取り上げた1998年刊に次ぐ第3版...
[694] Posted by kagahiro at 2006/06/29 01:48:18
0 point | Link (6) | Trackback (0) | Comment (0)

基本から学ぶソフトウェアテスト―テストの「プロ」を目指す人のために市販ソフトウェアや一般の業務用ソフトウェアをテストする技術の入門書。基本から、テスト技術の各論、テストプロジェクトやテストチームの管理...
[682] Posted by kagahiro at 2006/06/27 22:10:01
0 point | Link (1) | Trackback (0) | Comment (0)

一番やさしいJSP&サーブレット入門塾Web DBアプリケーション開発に不可欠なJSP、サーブレット、JavaBeansの入門書。JSPハンドブックJSPの環境設定や実用サンプル、オブジェクトリファレンス、また周辺のデータベース...
[651] Posted by kagahiro at 2006/06/21 02:26:24
0 point | Link (4) | Trackback (0) | Comment (0)

  1  


アクセスランキング

今日のアクセスランキング TOP 10

  1. SQLのSELECT文で先頭から上位（TOP）10件のレコードを取得する方法（SQL Server、Oracle、MySQL、PostgreSQL） (16 PV)
  2. 完全無料のMT5用ナンピンEA「Nanpin K（ナンピンケイ） MT5」 使用制限無し (12 PV)
  3. 仲値トレードが簡単にできる無料EA「NAKANE3」 #MT4 (11 PV)
  4. 究極の爆益ゴールドナンピンマーチンEA「Extreme（エクストリーム）」 MT4向け (10 PV)
  5. [PR]noteで販売している自作EAの一覧 (9 PV)
  6. [PR]スキャルピングならスプレッドが狭くキャッシュバックサイトも利用できるExnessがおすすめ (9 PV)
  7. 裁量トレードを半自動化する無料のMT5向け裁量トレード支援ツール（裁量補助EA）「PositionKeeper MT5」 #FX (8 PV)
  8. 2NN 2ちゃんねるニュース速報＋ナビ (8 PV)
  9. 自作のMT4向け無料EA（口座縛り無し、ブローカー縛り無し、使用期限無し）とゴゴジャン出品中の有料EAの一覧 #MT4 (8 PV)
  10. MT4向け無料ナンピンマーチンEA「PINMA FREE」（ベースロット0.01固定） #自動売買 #FX (8 PV)

今月のアクセスランキング TOP 10

  1. SQLのSELECT文で先頭から上位（TOP）10件のレコードを取得する方法（SQL Server、Oracle、MySQL、PostgreSQL） (621 PV)
  2. 無料掲示板CGIのダウンロード (249 PV)
  3. 究極の爆益ゴールドナンピンマーチンEA「Extreme（エクストリーム）」 MT4向け (150 PV)
  4. 自作のMT4向け無料EA（口座縛り無し、ブローカー縛り無し、使用期限無し）とゴゴジャン出品中の有料EAの一覧 #MT4 (144 PV)
  5. 仲値トレードが簡単にできる無料EA「NAKANE3」 #MT4 (140 PV)
  6. 2NN 2ちゃんねるニュース速報＋ナビ (134 PV)
  7. 究極の爆益ゴールドナンピンマーチンEA「Extreme MT5」 (126 PV)
  8. USTREAM（ユーストリーム） 日本語版 無料のライブ映像配信サービス (125 PV)
  9. 「国家非常事態」トランプ米大統領が日本に24%の関税を課すと表明 日経平均株価が急落 (107 PV)
  10. 安全性重視の完全無料ナンピンマーチンEA「Million Dollar（ミリオンダラー）」 #FX #ゴールド #ビットコイン (107 PV)

アクセス統計

ディレクトリ

関連サイト