Perl: 文件操作、my、时间转换、日志监控

现在的位置: 首页 > 综合 > 正文

2012年05月25日 ⁄ 综合 ⁄ 共 1164字 ⁄ 字号小中大 ⁄ 评论关闭

①文件操作

使用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的区别

our：全局变量定义，如果在函数里定义的时候全局已经定义，则相当于引用全局变量；（全部访问：上级，当前，下级）

local：把全局变量局部化（等于是局部的全局变量）；局部化后所有由此局部引出的这个变量的修改，都只影响到该局部为止。（访问：当前，下级）

my：真正的局部变量，该变量仅在此局部中有效，在子过程中无效。（访问：当前）

③时间的转换（日常所用的日期和时间串格式与纪元秒之间的转换）

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

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

④日志监控

模拟写日志：

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

抱歉!评论已关闭.

学步园