在Perl中，可以使用正則表達式或者內置的字符串函數來過濾文件中的數據。以下是兩種常見的方法：
open(my $fh, '<', 'file.txt') or die "Cannot open file: $!";
while (my $line = <$fh>) {
if ($line =~ /pattern/) {
# 進行處理
print $line;
}
}
close($fh);
open(my $fh, '<', 'file.txt') or die "Cannot open file: $!";
while (my $line = <$fh>) {
if (index($line, 'substring') != -1) {
# 進行處理
print $line;
}
}
close($fh);
以上代碼示例假設要過濾的文件名為"file.txt"。open()函數用于打開文件，<表示只讀模式。while循環遍歷文件的每一行，然后根據正則表達式或者字符串函數來判斷是否滿足過濾條件，滿足條件的行進行處理，例如輸出到控制臺。最后使用close()函數關閉文件。請根據實際需要修改代碼中的"pattern"或"substring"來實現具體的過濾邏輯。
