正規表現の否定 #2 - odz bufferref:Unknown::Programming - 文字列の先頭がある単語で始まらない正規表現って ref:odz buffer - 正規表現の否定 ちょいと考えてみたんだけど、任意の正規表現にマッチしない正規表現ってのはこうすれば作れるんではないだろうか。 sub negative_regexp { my ($re) = @_; return qr/\A(?!$re)(?:.(?!$re))*\Z/s; } 適当にモジュール化して適当にテストを書いてみたけどどうだろう。まぁ、テストが全然足りないんだけども。 とりあえず、dankogai さんあたりがツッコミを入れてくれると期待。いや、実は全然既知のネタというオチがありそうだけども。 package Regexp::Negative; use warnings; use strict; use Carp; use version; ou
