[正規表現]の検索結果


掲示板などのスレッドやコメント欄に投稿された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. 無料掲示板CGIのダウンロード (2 PV)
  2. SQLiteのSELECT文で上位 (TOP) n件のデータを取得する (1 PV)
  3. 安全性重視の完全無料ナンピンマーチンEA「Million Dollar（ミリオンダラー）」 #FX #ゴールド #ビットコイン (1 PV)
  4. 無料のMT5向けナンピンマーチン爆益（爆損）EA「Jipangu（ジパング） MT5」 (1 PV)
  5. MT4向け無料ヘッジ（両建て）ツール（EA）「STOPPER FREE」 #自動売買 #FX (1 PV)
  6. Google News （グーグルニュース）日本版 (1 PV)

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

  1. 究極の爆益ゴールドナンピンマーチンEA「Extreme（エクストリーム）」 MT4向け (12 PV)
  2. 自作のMT4向け無料EA（口座縛り無し、ブローカー縛り無し、使用期限無し）とゴゴジャン出品中の有料EAの一覧 #MT4 (10 PV)
  3. 無料掲示板CGIのダウンロード (8 PV)
  4. 究極の爆益ゴールドナンピンマーチンEA「Extreme MT5」 (6 PV)
  5. MT5用レンジ相場向け逆張りナンピンEA「Nanpin K（ナンピンケイ） MT5」を完全無料で公開 (4 PV)
  6. 完全無料のMT5用ナンピンEA「Nanpin K（ナンピンケイ） MT5」 使用制限無し (4 PV)
  7. 使用制限無し完全無料のMT4向けナンピンEA「Nanpin K（ナンピンケイ）」 (4 PV)
  8. FX最強ツール「Infinity（川ツールを使った高額インジ）」販売で話題のFX系YouTubeチャンネル #詐欺とは言えないようだが (3 PV)
  9. SQLiteのSELECT文で上位 (TOP) n件のデータを取得する (3 PV)
  10. [将棋]将棋実況ユーチューバーのクロノさんが朝日新聞のクレームで棋譜中継を配信中止 (3 PV)

アクセス統計

ディレクトリ

関連サイト