Perl中经常使用的一些方法

升木

检测操作系统的类型
print "$^O\n";
linux on Linux and MSWin32 on Windows
use English qw' -no_match_vars ';
print "$OSNAME\n";

use Config;
print "$Config{osname}\n";
print "$Config{archname}\n";
http://stackoverflow.com/questions/334686/how-can-i-detect-the-operating-system-in-perl

取得文件名称
my $fileName = $file; # /tmp/test.log
$fileName =~ s!^.*(\\|\/)!!; # 得到fileName - "test.log"

删除目录下的文件
-d $_?rmtree($_):unlink $_ foreach (<data/*>);

文件上传
        if (!open(OUTFILE, ">$baseDir/$fileName")) {
print "Cannot open the file $baseDir/$fileName";
exit;
}
while (my $bytesRead = read($_, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);

去掉字符串两边的空格或回车换行
sub trim_str
{
my $str = shift;
if ($$str) {
$$str =~ s/^\s+//g;
$$str =~ s/\s+$//g;
$$str =~ s/[\r\n]//g;
}
return $str;
}

日期格式化
use POSIX qw(strftime);
my $time = strftime("%Y%m%d%H%M%S", localtime(time));
http://blog.chinaunix.net/uid-608135-id-2948410.html