my @ext = ("\.dtd", "\.xml");
foreach $a (@ext) {
print $a, "\n";
my $i =0;
while ($i <= $zip->numberOfMembers) {
my $xmlfile=$filelist[$i] if $filelist[$i] =~ /$a/;
print $xmlfile, "\n";
print $i, "\n";
$i++;
}
}
----------------
Ausgabe:
laga@prometheus:~/dev/perl$ perl downloaddata
.dtd
Use of uninitialized value in print at downloaddata line 44.
0
qy.dtd
1
Use of uninitialized value in print at downloaddata line 44.
2
Use of uninitialized value in print at downloaddata line 44.
3
Use of uninitialized value in print at downloaddata line 44.
4
Use of uninitialized value in print at downloaddata line 44.
5
Use of uninitialized value in print at downloaddata line 44.
<--snip-->
.xml
20070723_20070706_de_qy.xml
0
Use of uninitialized value in print at downloaddata line 44.
1
Use of uninitialized value in print at downloaddata line 44.
2
Use of uninitialized value in print at downloaddata line 44.
3
Use of uninitialized value in print at downloaddata line 44.
4
Use of uninitialized value in print at downloaddata line 44.
5
Use of uninitialized value in print at downloaddata line 44.
6
Use of uninitialized value in print at downloaddata line 44.