①文件操作
使用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