如何删除perl脚本中的第一行文件

Question

如何删除perl脚本中的第一行txt文件？

`sed "1d" filename.txt` 

Dosen't work。

Answer 1

您可以使用Tie::File：

use Tie::File; 
tie @array, 'Tie::File', $filename or die $!; 
shift @array; 
untie @array; 

Answer 2

`sed 1d filename.txt > newfile.txt` 

应该工作。如果你不把它重定向到一个文件，它只会读取整个文件减去stdout的第一行。

Answer 3

发送到sed的STDOUT（其中Perl继续捕获到变量中）而不是filename.txt的输出。您想使用sed的-i。

sed -i "1d" filename.txt 

由于没有输出捕捉，所以使用反引号是没有意义的。你想要system。

system('sed -i "1d" filename.txt'); 

更好：（避免启动另一个shell）

system('sed', '-i', '1d', 'filename.txt'); 

最佳：（有没有错误，你检查）

use IPC::System::Simple qw(systemx); 
systemx('sed', '-i', '1d', 'filename.txt'); 

Answer 4

因为你在做使用sed的，这里的内联是一个Perl当量..

perl -ne'$.==1?next:print' <(seq 1 10) 

凡选项的意思是，

-n    assume "while (<>) { ... }" loop around program 
-e program  one line of program (several -e's allowed, omit programfile) 

其他注意事项，

• $.是当前行号的变量。
• <()是在后台生成FIFO的Bash伏都教。