关于Use of uninitialized value in substitution/join

sellie

我用split将CSV文件导入数组存储, 然后对数组元素进行需要的处理.这之中会时不时将某些数组元素就变成undef.
这样如果再对这些数组元素做处理的时候就会产生诸如这些个warning: Use of uninitialized value in substitution/join,虽然不影响程序运行的正确性.
现在的解决办法是join之前, 遍历一边数组, 如发现元素是undef的就用空窜替代. 但感觉这样的方法很臃肿.
不知有没有更加好的方法.
谢谢!

zhlong8

你的 CSV 列数并不都相同吧，split 本身是不会产生 undef 值的。

sellie

CSV列数是相同的,但本身有些域就是空的. undef不是在split中产生的, 是我后续的一些操作产生的, 比如去首尾空格, 去nonascii字符.示例代码如下

while ( my $row = <$RFH> ) {
    chomp $row;
    $row =~ s/[[:^ascii:]]+//gxms;
    my @fields = (split /,/xms, $row)[0..10];
    for (@fields) {  s/^\s+|\s+$//gxms }
}

zhlong8

    my @fields = (split /,/xms, $row)[0..10]; 这里如果没有11个元素就会用 undef 补充

ttcn_cu

1. #!perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. use 5.010;
   
6. my @x = map { $_ // '' } (('a') x 5,(undef) x 5);
   
7. print Dumper @x;

复制代码

sellie

zhlong8 发表于 2012-06-01 17:12
my @fields = (split /,/xms, $row)[0..10]; 这里如果没有11个元素就会用 undef 补充

CSV文件都是11列以上的, 因为我只关心前11列的内容,所以截取了.

sellie

ttcn_cu 发表于 2012-06-01 17:32

这个就是我现在做的,把undef用空窜替换掉.
但我觉得这样很不爽.

zhlong8

sellie 发表于 2012-06-01 17:37
CSV文件都是11列以上的, 因为我只关心前11列的内容,所以截取了.

如果真是这样那这段代码哪里会产生 undef 值，我还真想不出来，你在前面加个测试检测下 split 返回的数目是否达到11

ttcn_cu

可以有很多很诡异的写法啊 ，当然用的时候一定要加上注释

1. #!perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my $g='a,b,c,d,e,f';
   
6. my @x = (split(/,/,$g), (q{}) x 10 ) [0..10];
   
7. print Dumper @x;

复制代码

sellie

zhlong8 发表于 2012-06-01 18:00
如果真是这样那这段代码哪里会产生 undef 值，我还真想不出来，你在前面加个测试检测下 split 返回的数 ...

今天仔细的加了测试节点揪问题. 还是split引起的.
我有些条目只有前7个域有值,如下
0,1,2,3,4,5,6,,,,,,,,,,,,,,,,,,,,
这样split后付给数组的话从第8个元素就是undef了.
解决的方法是在每个条目最后的域附上一个值,比如NA
0,1,2,3,4,5,6,,,,,,,,,,,,,,,,,,,,NA,
这样split后付给数组那些空的域就成为''而不是undef了.

对split的行为还是不够深入了解.