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

sunzhiguolu

我有一个文本文件, 内容如下:

1. 
   
2. ZhangSan m 15600000000
   
3. LiNa f
   

复制代码

我测试代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. while (<>){
   
8.     my ($name, $gender, $phone_number) = split /\s+/;
   
9.     say "\$name=$name,\$gender=$gender,\$phone_number=$phone_number" if ($phone_number eq "");
   
10.     #my @a_line = split /\s+/;
    
11.     #printf "%d.>%d\n", $., scalar (@a_line);
    
12. }
    

复制代码

以上代码, 我有些地方不明白向大家请教, 请大家给予帮助及支持, 先谢过大家了...
1.> 通过 split 以空白字符将一行文本分割后, 为何文本中 LiNa 的哪一行的
    $phone_number 变量的值不是 undef 而是 "空串"?

sunzhiguolu

我先说下我疑惑的地方:
1.> split 函数将文本行末尾的换行符也匹配到了, 然后将包含 LiNa 的哪一行
    分割成包含三个元素的列表返回;
    1.1> 但是如果将代码中的第 9, 10 行的注释去掉, 发现实际分割后得到的数组的元素个数却是 2 ;
    1.2> 那么将一个包含两个元素的列表或数组向包含三个元素的列表赋值的话, 最后一个元素的值
         不应该是 undef 吗?
-------------------------------------------------------------------------------------------------
下面是我的测试代码:

1. 
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my @a_numbers = (1,2);
   
8. my ($one, $two, $three) = (@a_numbers);
   
9. say "undef" unless (defined $three);
   

复制代码

MMMIX

回复 1# sunzhiguolu


   
$ cat p00.pl
#!/usr/bin/perl

use strict;
use warnings;

use v5.14;
use autodie;
use Data::Dumper;

while (<DATA>) {
    chomp;
    my ($a, $b, $c) = split /\s+/;
    print Dumper([$a, $b, $c]);
}

__DATA__
ZhangSan m 15600000000
LiNa f

$ ./p00.pl
$VAR1 = [
          'ZhangSan',
          'm',
          '15600000000'
        ];
$VAR1 = [
          'LiNa',
          'f',
          undef
        ];

sunzhiguolu

回复 3# MMMIX

while (<DATA>) {
    chomp;
    my ($a, $b, $c) = split /\s+/;
    print Dumper([$a, $b, $c]);
}

您在代码中添加的 chomp 函数, 去掉了文本行末尾的换行符.
导致 split 函数分割后返回的是一个包含 (两个或三个) 元素的列表.

[$a, $b, $c]

您这个是人为的将一个值为 undef 的标量值放进了匿名数组中.

我的代码中没有用 chomp 函数去掉行末尾的换行符, 使用 split 函数分割后测试返回的数组的元素个数也是 2 个.
为什么变量 $phone_number 不是 undef.

部分测试代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my @a_numbers1 = ("a", "b", undef);
   
8. my @a_numbers2 = ("a", "b", "");
   
9. say scalar (@a_numbers1);    # 3
   
10. say scalar (@a_numbers2);    # 3
    

复制代码

jason680

回复 4# sunzhiguolu

也许找到bug,去回报的bug吧...

   

sunzhiguolu

回复 5# jason680
如果是 bug 的话, 那就算了. 谢谢您提醒...

   

MMMIX

回复 6# sunzhiguolu


    不是 bug，再把 split 文档仔细看一遍你就会发现：

1)
my ($a, $b, $c) = split /\s+/;

和

2)
my @f = split /\s+/;

的行为其实是不一样的。若是 $_ = "abc def\n";

那么 1) 中，$a == "abc", $b == "def", $c = ""; 而 2）中 $f[0] = "abc"; $f[1] = "def"，（@f 只有两个 element）最后的空域(empty field) 被忽略了。

MMMIX

回复 6# sunzhiguolu


    在你认为自己找到了 perl 的bug的时候，先把相关文档仔细读三遍。

sunzhiguolu

回复 7# MMMIX
终于明白了, 非常佩服您对知识严谨的态度. 向您学习了.
我在进行测试的时候, 还是没有进行全面的验证. 和您比起来差的很远...

   

sunzhiguolu

回复 5# jason680
大神您好, 我的理解如下, 如有不对之处请您给予指点, 谢谢:
部分验证代码如下:

while (<>){
    my ($name, $gender, $phone_number, $addr) = split /\s+/;
    say "\$name=$name,\$gender=$gender,\$phone_number=$phone_number\$addr=$addr" if ($phone_number eq "");
}

另外一个举例:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $format = "\@a_animals.Count=%d\n";
   
7. my $str2 = my $str1 = "tiger:elephant:panda:wolf::";
   
8. 
   
9. my @a_animals = split /:+/, $str1;
   
10. printf $format, scalar (@a_animals); # 4
    
11. 
    
12. @a_animals = split /:/, $str2;
    
13. printf $format, scalar (@a_animals); # 5
    

复制代码