#!perl
use strict;
use warnings;
use 5.014;
my $filename=$argv[0];
open file1,"<$filename" or die "can't open '$filename':$!";
open file2,"+<$filename" or die "can't open '$filename':$!";
my $lines = join '',;
$lines =~ s/^/$filename:/gm;
print file2 "$lines";
close file1;
close file2;
將filename檔案每行的開頭加上檔名：
簡要說一下原理:f1和f2將使用不用的檔案指標,f1的指標一定大於等於f2的指標,f2為可讀寫方式開啟,可以對其進行修改
perl 修改原檔案
很多時候，我們希望對原有檔案的內容進行一定的修改，linux雖然有sed這個強大的文字編輯命令，但是他只能生成新檔案或列印到screen上 或許sed也具有修改原檔案的功能，小的才疏學淺，尚不知道，煩請大家告訴我 但在perl裡卻有這麼乙個命令 i 例子 usr bin perl use stric...
修改檔案編碼的方法
請右鍵，在新的標籤頁中開啟鏈結 通過notepad 開啟我們需要編輯的檔案，例如以下檔案有問題，那麼我們開啟它 操作完成後，我們再留意下右下角，可以看到，已經轉換為utf 8無bom編碼了，記得儲存修改後的檔案。注 notepad 目前只有 windows 版本，mac 版本的解決方案，測試後再更新...
Perl入門 六 Perl方法的使用
1.定義乙個方法 perl使用sub定義方法。語法 sub 方法名稱 2.呼叫乙個方法 perl直接使用方法名稱呼叫方法。呼叫方式有以下四種 方法名稱 方法名稱 方法名稱 方法名稱 說明 方法呼叫可以再任何位置，可以在方法前 後呼叫，也可以在方法體內部呼叫。3.傳遞引數 perl通過方法名後面的括號...