若干有用的Perl命令和代码样例

• 查看已经安装的Perl Module：

1. Windows ActivePerl: ppm list /
2. Linux: instmodsh  -> l

• 生成格式化的日期字符串

sub getFormatTime { my $result = ""; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $result = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900,$mon+1,$mday,$hour,$min,$sec); return $result; }

• 生成指定长度的UUID

#install Data::UUID module use DBI; sub getUUID { my ($uuidLen) = @_; my $ug = new Data::UUID; my $uuid = $ug->create_hex(); D("uuid is: $uuid"); my $result = ""; for (my $i=2; $i<length($uuid); $i+=2) { $result = sprintf("%s%d", $result, hex(substr($uuid,$i,2)) ); } if (length($result) > $uuidLen) { $result = substr($result,0,$uuidLen); } return $result; }