※ 引述《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 开头，则略过。
这是你要的吗？如果不是，可设法自行修改。