什么相当于sed -n＆＃39; np＆＃39; perl中的文件

Question

通过sed，可以从文件中获取第n行。

sed -n '40p' file;
A=$(sed -n '40p' file);

perl中的等价物是什么？

Answer 1

perl -ne '$. ==40 and print' file

或者您可以跳过小于40的行，打印所需的行，并停止文件处理，

perl -ne 'next if $. <40; print; last' file

Answer 2

这可能是一个

perl -ne 'print if $. == 40'

$.是当前输入流的行号。