perl split 函数

发布时间：2020-12-15 23:42:36 所属栏目：大数据来源：网络整理

导读：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 $varn"; print "$

<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 $varn";
      print "$ip is $ipn";
               };
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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!