要打印文件中的某些行，可以使用Perl的代碼來實現。以下是一個示例代碼，可以打印文件中指定行數的內容：
#!/usr/bin/perl
# 打開文件
my $file = 'example.txt';
open my $fh, '<', $file or die "無法打開文件 $file: $!";
# 要打印的行數
my @lines_to_print = (2, 4, 6);
# 逐行讀取文件并打印指定行數的內容
my $line_num = 1;
while (my $line = <$fh>) {
if (grep { $_ == $line_num } @lines_to_print) {
print $line;
}
$line_num++;
}
# 關閉文件
close $fh;
在上面的代碼中，我們首先打開了一個名為example.txt的文件，并指定了要打印的行數。然后，我們使用一個循環來逐行讀取文件內容，并根據指定的行數打印相應的行。最后，我們關閉了文件。
要運行這段代碼，請將其保存為一個.pl文件，然后在命令行中運行perl 文件名.pl。它將打印文件example.txt中的第2、4和6行的內容。您可以根據需要修改@lines_to_print數組中的行數來打印其他行。
