我必须只打印文本文件中以特定模式 (ID) 开头的行。
我试过这种方法，但它不起作用：
open (IDS, 'example.txt') or die "Cannot open";
my @ids = <IDS>;
close IDS;
my @IDS= "ID";
foreach my $ids (@ids) {
if (my @ids =~ my @IDS){
print $ids;
}
}
这行可能肯定有问题 **if (my @ids =~ my @IDS){。
如果有人可以帮助我，我将非常感激。
最好的
【问题讨论】：
标签： perl
在长长的 cmets 列表之后，开始吧！这个 sn-p 适用于您的两种情况！
use strict;
use warnings;
open ( my $input, '<', 'printLinesStartingWithID.txt' ) or die $!;
while ( <$input> ) {
if(/^ID/)
{
print "Matched line starting with ID: $_";
}
if(/^AC/)
{
my ($secondCol) = $_ =~ /^AC...(.*?)\;/; #The three dots is to chop off the three empty spaces followed by 'AC'.
print "Matched line starting with AC. The second column of the line is: $secondCol \n";
}
}
close ( $input );
【讨论】：
你的问题几乎可以肯定是这一行：
if (my @ids =~ my @IDS){
因为my 声明了一个新变量，它“隐藏”了父作用域中的那个。当源和目标都是数组时应用正则表达式匹配也会以一种奇怪的方式表现 - 你一次迭代 @ids 一个元素，但你只是匹配整个事物。而且您正在与另一个数组匹配，该数组...实际上有效，但这只是因为您依赖于将数组转换为字符串并再次返回。
使用相同名称的大写和小写变量也是一种非常糟糕的风格，并且您使用@ids、@IDS 和IDS 这样做了3 次。
我也真的不确定my @IDS = "ID"; 是否正在做你认为它正在做的事情，也不是一开始就试图将@IDS 视为一种模式。
另外 - 将文件读入数组然后迭代它的效率低于仅逐行迭代文件。
您的代码可以简化为：
open ( my $input, '<', 'example.txt' ) or die $!;
while ( <$input> ) {
print if m/ID/;
}
close ( $input );
【讨论】：