- 博客(6)
- 资源 (1)
- 收藏
- 关注
原创 perl 正则内插变量
<br />1. my $t="123";<br />if($url=~//Q$t/E/<br />2.,如果标量为:<br />$scalar = " ({";<br />那么输入如下代码:<br />$variabie =~ m" $scalar" ;<br />就等价于是说
2011-03-31 11:40:00 2357 1
原创 perl 时间
<br /><br />my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time()-3600*17);<br />$year += 1900;<br />$mon++;<br />if($mon <10){<br />$mon='0'.$mon;<br />}<br />if($mday <10){<br />$mday='0'.$mday;<br />}<br /> <br />if($hour <10){<br />
2011-03-29 18:08:00 567
原创 tar命令详解
1.从打包好的文件删除部分文件对于没有执行gzip压缩的文件,可以通过下面的命令执行tar -cvf test.tar data/tar -f test.tar --delete data/a1.txt 对于执行过gzip压缩的文件,例如:tar -zcvf test.tar.gz data/下面的命令都不可以成功执行:tar -f test.tar.gz --delete data/a1.txt tar -zf test.tar.gz --delete data/a1.txt
2011-03-09 12:03:00 707
原创 perl hash 按值排序 升序 降序
<br />降序<br />foreach my $key (sort { $hashT{$b} <=> $hashT{$a} } keys %hashT){<br /> printf("%s/t%s/n",$key, $hashT{$key});<br />}<br />升序<br />foreach my $key (sort { $hashT{$a} <=> $hashT{$b} } keys %hashT){<br /> printf("%s/t%s/n",$key, $
2011-03-03 17:46:00 7652
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人