在Perl中，可以使用以下幾種方法來過濾文件中的數據：
while(my $line = <FILE>) {
if($line =~ /pattern/) {
# 過濾滿足正則表達式的行
# 對符合條件的行執行你的操作
}
}
while(my $line = <FILE>) {
if(index($line, 'substring') != -1) {
# 過濾包含特定子字符串的行
# 對符合條件的行執行你的操作
}
}
File::Filter模塊：use File::Filter;
my $filter = File::Filter->new(sub {
my ($self, $line) = @_;
if($line =~ /pattern/) {
# 過濾滿足正則表達式的行
# 對符合條件的行執行你的操作
return 1; # 保留該行
} else {
return 0; # 過濾該行
}
});
$filter->filter_file("filename");
以上是一些常見的方法，你可以根據具體的需求選擇適合的方法來過濾文件中的數據。
