こういう場合は｢否定先読み｣の正規表現を使った方がすっきりするな[Perl]
(2012-08-18 01:54:13) by shinoda
あるﾃﾞｨﾚｸﾄﾘに､
･頭4桁が月日(色々な月日のﾌｧｲﾙが混在)
･その後に1文字のｱﾙﾌｧﾍﾞｯﾄ(まあ､他の文字でもいいんだけど)
･その更に後ろに2桁の数字
･最後に､JPEG の拡張子(.jpg)
という命名条件のﾌｧｲﾙがあった時､そのﾌｧｲﾙ一覧の中から､2月9日(0209)の日付のもので､
(1)ｱﾙﾌｧﾍﾞｯﾄの後ろの 2桁の数字が 01 のものをまず抽出したい｡
(2)その後､2桁の数字が 01以外のﾌｧｲﾙを抽出したい｡
という時､(1) のﾌｧｲﾙ名に当てる正規表現は簡単だよな｡
例えばﾌｧｲﾙ名の一覧が､
0209C01.jpg
0209C02.jpg
0209Q38.jpg
0209C10.jpg
0209A28.jpg
0210C28.jpg
0209Y28.jpg
0212C01.jpg
だったら､
if ($d =~ /^0209.{1}01\.jpg$/) {...}
で 0209C01.jpg だけがﾏｯﾁする｡(.{1}のところは､[A-Z]{1}じゃないかと言われそうだけど､ここには必ずｱﾙﾌｧﾍﾞｯﾄが入っているので .{1}で十分なんだ｡{1}はいらないけど､わかりやすくするためにね)
じゃあ､(2) の抽出はその否定でいいのか?って言うと､それは駄目だよね｡
if ($d !~ /^0209.{1}01\.jpg$/) {...}
では､
0209C02.jpg
0209Q38.jpg
0209C10.jpg
0209A28.jpg
0210C28.jpg
0209Y28.jpg
0212C01.jpg
が全部ﾏｯﾁしてしまう｡実際にﾏｯﾁさせたいのは先頭が 0209 のものだけなのに｡
まあ､
if ($d !~ /^0209.{1}01\.jpg$/ && $d =~ /^0209/) {...}
とすればいいんだけど､何か 2つの条件を && でつなげるのも格好悪いなあ､何となく｡
こういう時に､日頃はあんまり使わない｢否定先読み｣を使うと正規表現一発で済むので格好良い｡
if ($d =~ /^0209.{1}((?!01).){2}\.jpg$/) {...}
これなら､
･2月9日(頭 4桁が 0209)のものだけで
･ｱﾙﾌｧﾍﾞｯﾄの後ろの 2桁が 01 以外のもの
にﾏｯﾁするので､上記の例なら､
0209C02.jpg
0209Q38.jpg
0209C10.jpg
0209A28.jpg
0209Y28.jpg
がﾏｯﾁして幸せなのである｡
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る
Powered by
MT4i 3.0.8