perl – 如何在Unix中打印文件中的特定行？

发布时间：2020-12-15 23:23:20 所属栏目：大数据来源：网络整理

导读：我想从Unix中的文本文件中打印某些行.要打印的行号列在另一个文本文件中(每行一个). 有没有使用Perl或shell脚本快速完成此操作的方法？解决方法假设要打印的行号已排序. open my $fh,'','line_numbers' or die $!;my @ln = $fh;open my $tx,'text_file' or

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

有没有使用Perl或shell脚本快速完成此操作的方法？

解决方法

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

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;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!