[请益] 循环内变量复制

楼主: fju0911 (拉斯维加斯~)   2018-01-11 21:51:08
各位前辈大家好。
目前手上在写一个整理资料的工具时,碰到了底下问题,希望有空的前辈可以解答。
程式码如下。
问题在于为什么之后在调用阵列@sort并打印的时候,会出现未初始化的讯息呢?
Use of uninitialized value $sort[0] in concatenation (.) or string at TRY.pl
line 32.
*****
$file = "XXX.txt";
$out= "Sorting_$file";
our @sort;
our @array;
open(FHD,"<$file") || die "Can't open $file!\n";
open(FHO,">$out") || die "Can't open $file!\n";
#Data copy to array#
$n=0;
while ($line=<FHD>) {
$array[$n] = $line;
$n++;
}
close(FHD);
#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++;
}
print "Array lenth= $#array\n";
print FHO "$array[0]\n";
close(FHO);

Links booklink

Contact Us: admin [ a t ] ucptt.com