- 博客(2)
- 资源 (9)
- 收藏
- 关注
转载 perl解析ip的经典方法
my $e = qr/[01]?[0-9]?[0-9]|2[0-4][0-9]|25[0-5]/; my $match_ip = qr/($e)\.($e)\.($e)\.($e)/; if ( $str =~ /^$match_ip$/ ){ print "$1,$2,$3,$4.\n"; }
2013-04-12 12:57:53 748 1
原创 perl并行处理大文件
有时候会需要对大文件进行并行处理. 对于文本文件,需要保证行的完整性. 一种是快速跳过不需要的行 #!/bin/env perl use strict; my $m=$ARGV[0]; #分成m份 my $l=$ARGV[1]; #第l份 my $file="test1.txt"; #my $line=`wc -l $file`; #my ($linenum)=$li
2013-04-01 18:34:55 2596
travian4 页面分析工具
2011-06-16
vml topo相关资源2-moveObj.js
2010-12-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人