Regex Perl脚本-在文本文件中搜索名称 $filename=“phone.txt”； 打印“输入要搜索的名称：”； $name=； open（my$fh，

变量

$name

在末尾包含一个换行符和正则表达式

/$name/

将与

phone.txt中的行不匹配。
请稍微调整一下，然后尝试：

$filename = "phone.txt";
print "Enter a name to search for: ";
$name = <STDIN>;
open(my $fh, '<', $filename) or die "Can't open $filename: $!";
while(my $line = <$fh>){
      if($line =~ /$name/){
      print $line;
      }
     else{
     print "$name bot found in phone.txt";
    }
}
close $fh;

$filename=“phone.txt”；
打印“输入要搜索的名称：”；
chomp（$name=）；
open（my$fh，变量
$name
在末尾包含一个换行符和正则表达式
/$name/
将与
phone.txt中的行不匹配。
请稍微调整一下，然后尝试：

$filename = "phone.txt";
print "Enter a name to search for: ";
$name = <STDIN>;
open(my $fh, '<', $filename) or die "Can't open $filename: $!";
while(my $line = <$fh>){
      if($line =~ /$name/){
      print $line;
      }
     else{
     print "$name bot found in phone.txt";
    }
}
close $fh;

$filename=“phone.txt”；
打印“输入要搜索的名称：”；
chomp（$name=）；
打开（my$fh，，如果您使用Linux，那么您可以使用
grep some_name filename

来自的脚本应该可以这样做，但您可以在命令行上指定一些名称

如果您想使用确切的名称，那么模式应该是
/\b$name\b/

建议使用
使用严格；使用警告；
以避免许多潜在的陷阱

$filename = "phone.txt";
print "Enter a name to search for: ";
chomp($name = <STDIN>);
open(my $fh, '<', $filename) or die "Can't open $filename: $!";
while (<$fh>){
    if (/$name/){
        print;
        $found++;
    }
}
if (! $found) {
    print "$name not found in $filename\n";
}
close $fh;

使用严格；
使用警告；
使用特征“说”；
my$fname='filename.txt'；
我的$name=shift；
我的$count；
chomp$name；
打开我的$fh，“如果您使用Linux，那么您可以使用
grep some_name filename

来自的脚本应该可以这样做，但您可以在命令行上指定一些名称

如果您想使用确切的名称，那么模式应该是
/\b$name\b/

建议使用
使用严格；使用警告；
以避免许多潜在的陷阱

$filename = "phone.txt";
print "Enter a name to search for: ";
chomp($name = <STDIN>);
open(my $fh, '<', $filename) or die "Can't open $filename: $!";
while (<$fh>){
    if (/$name/){
        print;
        $found++;
    }
}
if (! $found) {
    print "$name not found in $filename\n";
}
close $fh;

使用严格；
使用警告；
使用特征“说”；
my$fname='filename.txt'；
我的$name=shift；
我的$count；
chomp$name；
打开我的$fh，'请问文本文件是什么样子的？您需要保持状态（文本文件中的任何行匹配吗？）然后在测试完所有线条后打印。Brockman，Chad 920-213-0043 Chad。Brockman@wisconsin.gov伯迪克，乔尔262-323-6738乔尔。Burdick@wisconsin.gov克拉克，本608-400-2039本杰明。Clark@wisconsin.gov戴利，罗比608-422-1691迈克尔。Dailey@wisconsin.gov丹尼尔，雅克920-360-2871雅克。Daniel@wisconsin.govSo如果我输入“Chad”它应该打印回“Brockman，Chad 920-213-0043 Chad”。Brockman@wisconsin.gov“我试图在if语句中替换Chad的$name，但成功了。我认为这与$name有关。请编辑帖子——准确的格式很重要，但很难作为注释看到。请问文本文件是什么样子的？您需要保持状态。”（文本文件中的任何行是否匹配？）然后在测试完所有线条后打印。Brockman，Chad 920-213-0043 Chad。Brockman@wisconsin.gov伯迪克，乔尔262-323-6738乔尔。Burdick@wisconsin.gov克拉克，本608-400-2039本杰明。Clark@wisconsin.gov戴利，罗比608-422-1691迈克尔。Dailey@wisconsin.gov丹尼尔，雅克920-360-2871雅克。Daniel@wisconsin.govSo如果我输入“Chad”它应该打印回“Brockman，Chad 920-213-0043 Chad”。Brockman@wisconsin.gov"我试图在if语句中替换Chad的$name，但成功了。我认为这与$name有关。请编辑帖子——精确的格式很重要，但很难将其视为注释。您没有使用
使用strict；使用warnings；
并且没有使用声明的变量，这是一个坏主意。另外
文件名
可能是mi在它前面使用一个
$
。您没有使用
使用严格；使用警告；
并且没有使用声明的变量，这是一个坏主意。而且
文件名
前面可能缺少一个
$
。