davidliu007的专栏

Perl 代码实现：#!/usr/bin/perluse strict;use warnings;use diagnostics;open(LOG, '>', 'LOG_FILE') or die "Can't redirect stdout: $!";open(CMD, 'ls |');open(STDERR, '>&', STDOUT) or die "Can't redi

写程序时,打印日志是非常好的习惯,对我们排错,查问题非常有用.平时我们喜欢自己写个函数来处理日志,要么直接 print .在 Perl 中有个专门处理日志的模块叫 Log::Log4perl 这个是个重量级的家伙,所以不喜欢,配置的可读性也不怎么样.但他和操作系统一样,提供了几个级别的日志 FATAL, ERROR, WARN, INFO,DEBUG, TRACE 几个日志级别给我们使用,

Perl 脚本测试网络连接。#!/usr/bin/perluse IO::Socket;use POSIX qw(strftime);use vars qw($configfile @listen @filter @unknown @nlisten @pingable);sub testConnect($$) { my ($host, $port) = @_;

判断元素var是否存在于varlist数组中：#my @varlist = (1,2,3,4);#my $var = 2;my %vars = map { $_ => 1 } @varlist;if(exists($vars{$var})) {...... Logic}往varlist中加入新的非重复元素：$vars($var2)=1;@varlist = k