電話番号、郵便番号にマッチする真の正規表現 : にぽたん研究所
Shibuya.pm #16 「夏の正規表現祭り」で、正規表現のお話をさせていただきました。 まぁ、「電話番号にマッチする正規表現」とか「郵便番号にマッチする正規表現」とかよく書かれてるけど、「どれもこれも手緩いよね」って話。 あ、だいぶはしょったかな。 とりあえずスライドに書いたので、発表をご覧になってない方はスライドからご覧ください。 ふと見返すと、このブログで電話番号の正規表現を公表するのは 3 度目ですが、あれからだいぶ経ってますね。 今ではもっと厳密な正規表現を作っています。 そして、Number::Phone::JP に続き、Number::ZipCode::JP という酔狂なモジュールが公開された記念で、郵便番号にマッチする正規表現を今回初めて公開しますが、そもそもここまで厳密な正規表現が公開されること自体、本邦初公開ってヤツでしょう。 Shibuya.pm でも言いましたが
Perl5 で半角カタカナにマッチする正規表現を簡単にかく方法について - tokuhirom's blog
にしても、こちらのサイトでも言われていますが、なぜ半角カナ専用のUnicodeブロックがないのかと小一時間（ｒｙ http://blog.livedoor.jp/sasata299/archives/51194035.html http://d.hatena.ne.jp/pasela/20081003/ll_unicode ということで、 sub InHankakuKatakana { "FF65\tFF9F" }という一行をはっつけると、つかえるようになりますね。 #!/usr/bin/perl use strict; use warnings; use utf8; use Test::More; sub InHankakuKatakana { "FF65\tFF9F" } ok("\x{FF65}" =~ qr/\p{InHankakuKatakana}/); ok("abc" !~
5.13.6で - どんぞこ日誌(2010-10-22)
* [Perl] 5.13.6で あんまり役に立つとは思えないですが、昨日ツイートしたことを改めて書いておこうかと。Perl 5.13.6（宮川さんリリースなのですね！）の変更に、正規表現に関するものがいくつかあって、その影響で今まで想定した動作やテストがこけたりするかも、という話です。いままでは print qr/foo/; # => (?-xism:foo) print qr/foo/i; # => (?i-xsm:foo) だったのが、5.13.6からprint qr/foo/; # => (?^:foo) print qr/foo/i; # => (?^i:foo) になると（というか今回-xismを意味する'(?^:'という表記が出来るようになり、文字列化もこれで表現するようになった）。 私はあるモジュール内においてqr演算子でつくった正規表現$reを間違えて/[$re]/で使っ
へぼへぼCTO日記 - patternがemptyな場合には前回成功時のpatternが使われるというハマりポイント
print "match1\n" if "baz" =~ m{}; "foo" =~ m{foo}; print "match2\n" if "baz" =~ m{}; の結果は match1 である。なぜならperldoc perlrerefに書いてある通り、 If 'pattern' is an empty string, the last successfully matched regex is used. であるから。 patternを動的に生成してたりする時に空になっちゃうケースなんかがあると思うので、その場合はマッチ処理自体を回避するようにするほうがよいかと思われます。 最初バグかと思いました。
にひりずむ::しんぷる - 対応する括弧にマッチする正規表現
Perl5.10の正規表現では名前付きキャプチャとメモリリークが追加されました。 Perl 5.10.0 正規表現でメモリリーク発生 Kawa.netブログ（川崎有亮）/ウェブリブログ ちなみにActivePerl Binary build 1004 [287188]でも発生しました。どうしたもんか。 まぁそんなことより、今日は名前付きキャプチャを取り上げてみようと思います。 グループに名前をつけられる機能。後方参照時に任意の名前で参照できるのが魅力的。 PythonやRuby1.9にもあります。 Perlの名前付きキャプチャはPythonとほとんど一緒ですが、Perlらしくいろんな書き方がサポートされます。 好きなの使ってね。 名前を付ける構文: (?<name>pattern) (?'name'pattern) (?P<name>pattern>) 名前を付けたバッファへの後方参照:
にひりずむ::しんぷる - タグの外側を抽出する正規表現
use strict; use warnings; use LWP::UserAgent; binmode STDOUT, ':utf8'; my $tag = qr# (?: </? (?: ( [^<>]* (?: ['"] [^"']* ["'] )? ) (?1) ) /?> ) #xms; my $agent = LWP::UserAgent->new; my $res = $agent->get('http://blog.livedoor.jp/xaicron/'); my $html = $res->decoded_content; $html =~ s/ $tag? ( (?: (?! $tag ) . )*? ) $tag / $2 /geoxsm; $html =~ s/\s*\n+/\n/gms; print $html; いまいち
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
