推 fju0911: 是的！我剛剛才發現。還沒來得及更新就看到您回文。感謝 01/11 23:53
※ 引述《fju0911 (拉斯維加斯~)》之銘言：
: Use of uninitialized value $sort[0] in concatenation (.) or string at TRY.pl
: line 32.
: *****
: #Data sorting
: $F=0;
: for($i=0; $i<=$#array; $i++)
: {
: if ($array[$i]=~ /^</ || $array[$i]=~ /\(F\)/ || $array[$i]=~ /\(A\)/ ||
: $array[$i]=~ /{-1}/)
: {
: $sort[$F] = $array[$i];
: # print FHO "$sort[$F]";
: }
: $F++;
: }
在這個迴圈裡, $F++ 的執行次數為 ($#array + 1) 次，但是
$sort[$F] = $array[$i];
... 這一行的執行次數必定小於或等於 ($#array + 1)。因為它被放在 if() { ... } 之中。
也就是說 @sort 當中的內容在 if() 中的條件不成立時，就會缺。
從所給的描述推理， XXX.txt 的第一行 （也就是對應到 $array[0] 及 $sort[0] 的那一行）
之內容便會使 if() 中的條件成立。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 126.159.251.205
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1515685561.A.88B.html