关闭

perl split 函数

268人阅读 评论(0) 收藏 举报
分类:
<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



   
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1321885次
    • 积分:40573
    • 等级:
    • 排名:第96名
    • 原创:2865篇
    • 转载:14篇
    • 译文:0篇
    • 评论:51条
    文章分类
    最新评论