perl - 如何从 Unix 中的文件打印特定行？

Question

我想从 Unix 中的文本文件中打印某些行。要打印的行号列在另一个文本文件中(每行一个)。

是否有使用 Perl 或 shell 脚本执行此操作的快速方法？

Answer 1

假设要打印的行号已排序。

open my $fh, '<', 'line_numbers' or die $!;
my @ln = <$fh>;
open my $tx, '<', 'text_file' or die $!;
foreach my $ln (@ln) {
  my $line;
  do {
    $line = <$tx>;
  } until $. == $ln and defined $line;
  print $line if defined $line;
}