已经解决.结贴 脚本 Perl - 如何理解 split 函数的返回值

sunzhiguolu

split 函数在使用指定分割符对文本行进行分割时. 只能将文本首部存在的分割符压缩成一个值为空串的元素 (如果首尾存在分割符的话), 处于 （中间位置 或 尾部) 的分割符将会被忽略.

如下面的示例文件及代码: (假设每行文本尾部换行符之前不存在其他空白字符, 如 空格或制表符)

1. 
   
2.     tiger lion
   
3. elephant giraffe monkey
   

复制代码

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. while (<>){
   
7.     #...
   
8.     my ($col1, $col2, $col3) = split /\s+/;
   
9. 
   
10. }
    

复制代码

下面我说下我的理解, 有不对的地方请大家指点:
1.> 由于 split 函数在使用时, 指定了分割模式导致 split 函数
    进行分割时只是忽略了文本中间及尾部的空域. 而位于文本开始位置的空域被保留成一个空串的值
2.> 而处于文本开始位置的作为分割符的字符串只能以手动的方式进行清理. (避免后续操作中变量出现空串现象)

   

sunzhiguolu

回复 7# MMMIX
大神, 您能否帮忙看下我 11 楼的帖子?

   

sunzhiguolu

如果大家, 对于这个问题有什么好的方法也请给予指点. (针对 11 楼的帖子)
我在这里先谢过了.

MMMIX

回复 12# sunzhiguolu


    忽略开头的 empty field 没有什么太好的方法：

while (@list) {
    $list[0] ? last : shift @list;
}

如果要把所有 empty field 都去掉，那就用 grep:

@list = grep { $_ } @list;

sunzhiguolu

回复 14# MMMIX

如果要把所有 empty field 都去掉，那就用 grep

这个我还没接触, 只能看看了. 让您见笑了.

   

jason680

MMMIX 不是叫人要看三遍...
啊，怎么自已都没看!! ??

$ cat split.txt
    tiger lion
elephant giraffe monkey

$ cat split.pl
#!/usr/bin/perl
use strict;
use warnings;

while (<>){
    chomp;
    my @aData = split;
    print join(",",scalar @aData,@aData),"\n";
}

$ perl split.pl split.txt
2,tiger,lion
3,elephant,giraffe,monkey

sunzhiguolu

回复 16# jason680
大神您好, 我不是不想看帮助文档. 有的时候看帮助文档, 其中部分单词放在句子中不知道如何进行翻译, 导致在得到结果之前先要把英文搞懂, 所以我有点害怕.
语法格式如下:

1. 
   
2. split /PATTERN/,EXPR
   
3. split
   

复制代码

您使用的是 split 函数的缺省行为.
粗略理解, 缺失部分还望大神收尾:
1.> 缺少模式时, 使用空白字符作为默认的分割符;
2.> 缺少表达式时, 在此例中作用对象为 $_ 变量;
3.> 分割行为, 忽略任何前导及拖尾的空白域

当指定模式后, 分割行为在处理文本每行开始位置包含分割符时略有不同. split 函数
将保留一个空域, 即 数组 @aData 中第一个元素的值可能为 "空串".

好了, 我已经描述完毕. 哪里不对, 哪里遗漏 请您指点...

   

sunzhiguolu

回复 16# jason680
我将 11 楼帖子的内容重新修改了, 您再给把把关.
通过 您 及 MMMIX 大神的指点, 我对 split 函数的返回结果似乎有点感觉了.

   

MMMIX

jason680 发表于 2015-10-14 15:08
MMMIX 不是叫人要看三遍...
啊，怎么自已都没看!! ??

有空多看看文档吧。

sunzhiguolu

回复 19# MMMIX
好吧, 谢谢您.