Karsten Borgwaldt wrote: > > Hi all, > > can anybody tell me, why I can't push any read values into an array? > > my code is: > .. > .. > .. > opendir(IN, "some_path") || die "opendir: $!"; > rewinddir(IN); > while (defined($_ = readdir(IN))) > {unless (m/^\.{1,2}$/ or not m/'.foo'$/) # all files, that are not "." or ".." and >that end ".foo"! > {push(@my_array, $_;} typo or copy problem that you don't close 'push (' ?
> } did you try opendir(IN, "the_dir") || die "opendir: $!"; rewinddir(IN); while ($_ = readdir (IN)) { if (m/^\.{1,2}$/ or m/'.foo'$/) { print STDERR "wrong file ($)\n"; } else { print STDERR "here's a file ($_)\n"; } } to see if it ever finds any files? /Jon > .. > .. > .. > I get no errors, but nothing happens. > If I insert the line > > foreach $item (@my_array) {print "$item";} > > I get no errors, too, but no values are printed. > Allthough I know there are files in that directory. > > Thank you for all suggestions. > > Karsten > ________________________________________________________________ > Keine verlorenen Lotto-Quittungen, keine vergessenen Gewinne mehr! > Beim WEB.DE Lottoservice: http://tippen2.web.de/?x=13 > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]