對所有輸入文件,如果沒有版權信息則加上版權信息,否則什麼都不做,並對原文件以.bak結尾備份,需要的朋友可以參考下
對所有輸入文件,如果沒有版權信息則加上版權信息,否則什麼都不做,並對原文件以.bak結尾備份。
開始我使用如下程序(嘗試前千萬先備份輸入的文件):
#!usr/bin/perl -w $^I = ".bak"; my %do_these; foreach (@ARGV){ print $_; $do_these{$_} = 1; } while(<>){ if(/^## Copyright/){ delete $do_these{$ARGV}; } } @ARGV = sort keys %do_these; while(<>){ if(/^#!/){ $_ .= "## Copyright (C) 2011 by yujianjun"; } print; }
結果:原文件和備份文件全部空白,真是糟糕。(切記以後測試程序時,要做好備份)。
分析原因:
主要是由於$^I使用錯誤。先來看看關於$^I的運作原理:
$^I 默認值undef,這不會影響程序。如果將其賦值爲某個字符串(如程序中的".bak"),程序將執行備份操作,並將該字符串添加到原文件名後面,成爲備份文件名的拓展名。使用鑽石操作符打開文件時,perl的操作是,先將打開的文件名改成加了拓展名的文件名,然後再新建一個原來的文件名的文件,然後在程序一行行讀入文件內容並做一些改動後,會保存到新文件中去。這樣就相當於修改了文件內容,並將老文件進行了備份。當然,如果值是undef,則不會備份舊文件。
由於上面程序中將$^I = ".bak";放在最前面,但後面有兩次讀取文件操作。假設讀入文件爲file.pl,第一次while(<>)將原文件變成了file.pl.bak。然後新建一個空文件命名爲file.pl;但新文件只有程序結束的時候纔會寫入磁盤中,所以接下來第二次讀取文件操作while(<>)時,將會把空白的file.pl變成file.pl.bak,這樣就覆蓋了第一次的備份文件,然後再新建一個新的空白文件file.pl,此時,包括原文件和備份文件內容都是空白。
理解了$^I的工作原理,程序就很容易修改了:
只需將$^I = ".bak";放到最後一個文件讀取操作while(<>)之前就好了,如下:
#!usr/bin/perl -w my %do_these; @ARGV = ("sinx.pl","nvidia.pl","changeName.pl"); foreach (@ARGV){ print $_; $do_these{$_} = 1; } while(<>){ if(/^## Copyright/){ delete $do_these{$ARGV}; } } @ARGV = sort keys %do_these; $^I = ".bak"; while(<>){ if(/^#!/){ $_ .= "## Copyright (C) 2011 by yujianjun"; } print; }
這樣基本上就可以了,大家可以根據需要自行修改。希望大家多多支持神馬文庫。