如何刪除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伏都教。