perl split 函数

<pre name="code" class="sql">v-test-app01:/root# cat split.pl 
open (LOG ,"<","1.out");
      while (<LOG>) {
      chomp;
      ##分隔符为空格,取第三列
      $var=(split(/\s+/,"$_"))[2];
      ##按:分隔,取第一列
      $ip =(split(/:/,"$var"))[0];
      print "\$var is $var\n";
      print "\$ip is $ip\n";
               };
v-test-app01:/root# cat 1.out 
a1   b1    c:1  d1
a2   b2    c:2  d2
a3   b3    c:3  d3
a4   b4    c:4  d4
v-test-app01:/root# perl split.pl 
$var is c:1
$ip is c
$var is c:2
$ip is c
$var is c:3
$ip is c
$var is c:4
$ip is c



            
阅读更多
个人分类: zj-脚本
上一篇linux vim 去掉 bomb
下一篇perl 监控每个ip的连接数
想对作者说点什么? 我来说一句

Perl split函数

Perl split函数

qq_27745395 qq_27745395

2017-08-02 21:09:47

阅读数:4432

c++split函数

2013年02月08日 973B 下载

vb.NET中split使用方法宝典

2012年03月02日 51KB 下载

数据库Split用法汇总

2015年11月18日 3KB 下载

Perl函数全集

2007年08月29日 103KB 下载

jquery(split分割)

2011年09月09日 857B 下载

C# split 函数的用法

2015年10月27日 16KB 下载

split函数

2008年02月02日 790B 下载

Oracle,Split

2011年04月11日 745B 下载

没有更多推荐了,返回首页

关闭
关闭