Question

请问在Perl环境下，如何通过正则表达式在多行记录中查找出包含字符串A但是不包含字符串B的内容。

举例如下：
i am a man
i am a teacher
i am a football player
she is a girl

如何通过正则表达式找出包含“i am”，但是不包含“player”的记录，也就是说通过正则表达式查出以下结果：
i am a man
i am a teacher
有没有一行就能表达出来的方式……

Answer 1

^((?!i[ \t]+am|player).)+i[ \t]+am((?!player).)+$
如果需要排除的player一定在行尾，一楼的答案也行，要是不限定在尾部，任何位置的都不行（比如甚至在i am之前），就得用这个。
关键解释：(?!xxx)——当前位置不是xxx；((?!xxx).)+——当前位置以后一直没有xxx。

Answer 2

#!perl
#
open FILE, "fortest.txt";
while (<FILE>)
{
$line = $_;
print $line;
if($line =~ /.*a.*/ && $line !~ /.*b.*/)
{
$temp .= $line;
}
}
close FILE;

open FILE, ">new.txt";
print FILE $temp;
close FILE;
已测试，可以实现功能

Answer 3

while(<>){print $_ if (/i am/ && !/player/)};

保存为check.pl

check.pl 1.txt

输出结果:
i am a man
i am a teacher

因为有先后顺序的问题，貌似一句话没有办法满足。

Answer 4

#!/usr/bin/perl
#Define develop information here
$ApplicationVerion="1.0";

#Import additional module here
use Getopt::Std;

#Generate application run time variable here
$ApplicationExecutePathAndName=$0;

#Define global constant here
$DataFile="./DataFile.txt";
#Define global variable here

#Define function here

#Main code start here
open(FILE, $DataFile) || die "can not open the file: $DataFile";
while (defined ($Eachline =<FILE>))
{
chomp $Eachline;
if($Eachline=~/i am/)
{
if($Eachline!~/play/)
{
print $Eachline."\n";
}
}
}
close FILE;
#Main code end here

Answer 5

@result = $subject =~ m/^i\sam.+(?<!player)$/mg;

追问

能解释一下吗？

Answer 6

/i am/ && !/player/