その３桁の整数が000～066の範囲にない行を抽出するための正規表現を教えてください。
例えば、"067abcde"はマッチし、"059ghwad"はマッチしません。
grepで利用します。よろしくお願いします。
No.1
1307
65
5pt
grep で利用できる形にはなっていませんが、このような感じでどうでしょうか。
my @list = <DATA>;
for (@list) {
chomp;
print "$_ - ";
if (/^(\d{3})/ and $1 > 66) {
print "match";
} else {
print "unmatch";
}
print "
\n";}
__DATA__
067abcde
059ghwad
012hijkl
789bcdef
もしくは、次のようにすればマッチしたファイル名が@resultに入ります。
map { /^(\d{3})/; if ($1 > 66) { push @result, $_ } } @list;
No.2
130765
10pt
もう一度、これでどうでしょう。
grep でマッチしたリストを得ます。
my @result = grep scalar(/^(\d{3})/, $1 > 66), @list;
No.3
28729
65pt
(0[0-5][0-9]|06[0-6])
のように、| で複数のマッチ文字列を連結すればできますね。
1つ目が000〜059、2つ目が060〜066にマッチします。
ありがとうございます。
こちらがベストです！ …と思ったら、条件が逆でした。
(0[^0-5][0-9]|06[^0-6])
ありがとうございました。終了します。
ちゃぼりん
2006/04/20 23:21:44
1
1
1
2
30
28
ありがとうございます。
でもごめんなさい、perlじゃないのです。
正規表現そのもので表現しきるものが必要でした。