Perl: 檔案操作、my、時間轉換、日誌監控

①檔案操作

使用Perl從檔案中讀取字串，一般有兩種方法：
1. 一次性將檔案中的所有內容讀入一個數組中(該方法適合小檔案)：

open(FILE,"filename")||die"can not open the file: $!";
@filelist=<FILE>;

foreach $eachline (@filelist) {
chomp $eachline;
}
close FILE;

當檔案很大時，可能會出現"out of memory"錯誤，這是可以採用如下方法，一次讀取一行。

2. 一次從檔案中讀取一行，一行行地讀取和處理(讀取大檔案時比較方便)：

open(FILE,"filename")||die"can not open the file: $!";

while (defined ($eachline =<FILE>)) {
chomp $eachline;
# do what u want here!
}
close FILE;

②our、my、local的區別

http://www.cppblog.com/converse/archive/2008/07/31/57636.html

http://topic.csdn.net/t/20000223/18/2737.html

our：全域變數定義，如果在函數裡定義的時候全域已經定義，則相當於引用全域變數；（全部訪問：上級，當前，下級）

local：把全域變數局部化（等於是局部的全域變數）；局部化後所有由此局部引出的這個變數的修改，都隻影響到該局部為止。（訪問：當前，下級）

my：真正的局部變數，該變數僅在此局部中有效，在子過程中無效。（訪問：當前）

 

③時間的轉換（日常所用的日期和時間串格式 與 紀元秒 之間的轉換）

紀元to日常：$common = localtime(time); # 秒，分，時, 日，月，年，一周第幾天，一年第幾天，夏令時

日常to紀元：$epoch_seconds = timelocal($s,$m,$h,$mday,$mon,$year);

http://muent.com/a/develop/AllDL/201004303575.html

 

④日誌監控

類比寫日誌：

use IO::Handle;
open (FD, "> test.log") or die $!;
FD->autoflush(1);
while (1) {
my $now = time;
print FD $now, "\n";
sleep 1;
}
close FD;

類比監控日誌：

open (FD, "< test.log") or die $!;
while (1) {
my $in = <FD>;
print $in;
}
close FD;

小刁提醒：讀入時可以寫為 "< tail -f test.log |"

 

⑤子過程

http://blog.csdn.net/aldenphy/archive/2009/11/03/4761585.aspx