while (<>){
printf("%20s\t",$1) if /Server Software:\s+(.*?)\n/;
printf("%10d\n",$1) if /Requests per second:\s+(\d+\.\d+)/;
}
常见问题
相关文章
猜你喜欢
- 提取psite位点附近序列 2015-12-14
- row模式下从binlog提取DML的回滚sql 2015-12-14
- 通过web界面查询svn更新 2015-12-14
- 解压缩文件后按行读取并处理 2015-12-14
- perl Sys::Uptime模块使用例子 2015-12-14
- 子程序的运用 2015-12-14
- Perl获取Linux操作系统版本 2015-12-14
- Perl 使用 DBI 连接到 Oracle 数据库 2015-12-14
- 正则表达式求素数 2015-12-14
- Perl 操作 Windows 的系统服务 2015-12-14
