note
vagabonding electron
I use ActivePerl v.5.14.1 on WinXP.<br>
The version of File::Glob is 1.12 <br>
<br>
<b>Update:</b>
I changed the loop to:
<c>
for my $t (keys %address)
{
my $file = glob ("$address{$t}/Test*");
print "$t : $address{$t} : $file, \n###\n";
print "$t : $address{$t} : ", glob ("$address{$t}/Test*"), "\n---\n";
}
</c>
It prints:
<c>
A : U:/TEMP/TEMP/A : U:/TEMP/TEMP/A/Test01.txt,
###
A : U:/TEMP/TEMP/A : U:/TEMP/TEMP/A/Test01.txt
---
Use of uninitialized value $file in concatenation (.) or string at ... line 17.
D : U:/TEMP/TEMP/D : ,
###
D : U:/TEMP/TEMP/D : U:/TEMP/TEMP/D/Test04.txt
---
C : U:/TEMP/TEMP/C : U:/TEMP/TEMP/C/Test03.txt,
###
C : U:/TEMP/TEMP/C : U:/TEMP/TEMP/C/Test03.txt
---
Use of uninitialized value $file in concatenation (.) or string at ... line 17.
E : U:/TEMP/TEMP/E : ,
###
E : U:/TEMP/TEMP/E : U:/TEMP/TEMP/E/Test05.txt
---
B : U:/TEMP/TEMP/B : U:/TEMP/TEMP/B/Test02.txt,
###
B : U:/TEMP/TEMP/B : U:/TEMP/TEMP/B/Test02.txt
---
</c>
960545
960548