※ 引述《rkcity (喵。罐頭)》之銘言：
: 借題詢問一下各位前輩..
: http://regexr.com?31mr3
: - - - - - - - -
: Context
: - - - - - - - -
: -size 512
: -size 556
: -size 512556
: -size 556556
: -size 768
: -size 512768
: -size 556768
: - - - - - - - -
: - - - - - - - -
: RegExp
: - - - - - - - -
: -size (?!512|556)
: - - - - - - - -
: 這樣子可以抓出 768 前的 -size
: 可是如果我想要抓的是 不是512和556
: 也就是會包含512556 556556 512768 556768等雖是512 556開頭
: 但整體數字不是512和556的話
: 應該要怎麼改呢?
: 另外,如果我想要順便抓出後面這個數值的話
: (?!512|556)因為是不包含其結果 所以沒辦法用$1取得 >"<
: 感謝各位前輩 m(_ _)m
use strict;
my @a = ("-size 512", "-size 556", "-size 512556", "-size 556556", "-size
512768", "-size 556768", "-size 333555");
for my $i (@a) {
if ($i =~ m/-size (?!(?:512|556)$)(?:512|556)(.+)$/) {
print "Matched: " . $1 . "\n";
}
}
结果：
Matched: 556
Matched: 556
Matched: 768
Matched: 768
說明：找出 512 或 556 後面的數字，但如果數字僅是 512 或 556，或不以 512 或
556 開頭，則略過。
這是你要的嗎？如果不是，可設法自行修改。