12 / 2 页

论坛徽章:: 307

11楼 [报告]

发表于 2016-03-01 11:34 |只看该作者

本帖最后由 sunzhiguolu 于 2016-03-01 11:35 编辑

回复 9# jason680
还有一个问题向您请教, 我想查下 Perl 命令行参数介绍的命令该怎样弄. (是不是需要另开新帖?)

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

12楼 [报告]

发表于 2016-03-01 12:07 |只看该作者

回复 10# sunzhiguolu

local $/ = '';

#print grep {(split)[3] =~ m/(\d+)/ and $1 < 20} <DATA>;

while(<DATA>){                   # read file/DATA
  if(m/AlignRatio:([\d.]+)/){ # get key point
print if($1 < 20);             # check value by asker
  }
}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

13楼 [报告]

发表于 2016-03-01 12:13 |只看该作者

回复 11# sunzhiguolu

$ perl --help

Usage: perl [switches] [--] [programfile] [arguments]
  -0[octal]       specify record separator (\0, if no argument)
  -a             autosplit mode with -n or -p (splits $_ into @F)
  -C[number/list] enables the listed Unicode features
  -c             check syntax only (runs BEGIN and CHECK blocks)
  ...

http://highdb.com/perl-one-line-command-%E4%BB%8B%E7%BB%8D/

http://www.perl.com/pub/2004/08/09/commandline.html