阅读量:0
要打印文件中的某些行，可以使用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数组中的行数来打印其他行。
