關于Use of uninitialized value in substitution/join

sellie

我用split將CSV文件導入數(shù)組存儲, 然后對數(shù)組元素進行需要的處理.這之中會時不時將某些數(shù)組元素就變成undef.
這樣如果再對這些數(shù)組元素做處理的時候就會產(chǎn)生諸如這些個warning: Use of uninitialized value in substitution/join,雖然不影響程序運行的正確性.
現(xiàn)在的解決辦法是join之前, 遍歷一邊數(shù)組, 如發(fā)現(xiàn)元素是undef的就用空竄替代. 但感覺這樣的方法很臃腫.
不知有沒有更加好的方法.
謝謝!

zhlong8

你的 CSV 列數(shù)并不都相同吧，split 本身是不會產(chǎn)生 undef 值的。

sellie

CSV列數(shù)是相同的,但本身有些域就是空的. undef不是在split中產(chǎn)生的, 是我后續(xù)的一些操作產(chǎn)生的, 比如去首尾空格, 去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 發(fā)表于 2012-06-01 17:12
my @fields = (split /,/xms, $row)[0..10]; 這里如果沒有11個元素就會用 undef 補充

CSV文件都是11列以上的, 因為我只關心前11列的內(nèi)容,所以截取了.

sellie

ttcn_cu 發(fā)表于 2012-06-01 17:32

這個就是我現(xiàn)在做的,把undef用空竄替換掉.
但我覺得這樣很不爽.

zhlong8

sellie 發(fā)表于 2012-06-01 17:37
CSV文件都是11列以上的, 因為我只關心前11列的內(nèi)容,所以截取了.

如果真是這樣那這段代碼哪里會產(chǎn)生 undef 值，我還真想不出來，你在前面加個測試檢測下 split 返回的數(shù)目是否達到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 發(fā)表于 2012-06-01 18:00
如果真是這樣那這段代碼哪里會產(chǎn)生 undef 值，我還真想不出來，你在前面加個測試檢測下 split 返回的數(shù) ...

今天仔細的加了測試節(jié)點揪問題. 還是split引起的.
我有些條目只有前7個域有值,如下
0,1,2,3,4,5,6,,,,,,,,,,,,,,,,,,,,
這樣split后付給數(shù)組的話從第8個元素就是undef了.
解決的方法是在每個條目最后的域附上一個值,比如NA
0,1,2,3,4,5,6,,,,,,,,,,,,,,,,,,,,NA,
這樣split后付給數(shù)組那些空的域就成為''而不是undef了.

對split的行為還是不夠深入了解.