perl split 函数

scan724

于 2015-07-10 16:19:09 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： zj-脚本

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/46832191

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

本文通过一个简单的Perl脚本示例，展示了如何使用split函数进行数据分隔。首先，以空格为分隔符获取文件'1.out'中的第三列，然后进一步按冒号分隔，提取出第一部分的内容。在示例数据中，对每一行的处理结果均成功提取出了以'c:'开头的部分。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<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