Opened by Gast at 2005-10-06 17:12
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
1. warum machst du bei opendir keine fehlerabfrage? oder ist es nicht tragisch, wenn da keine Dateien drinnen sind?
2. lass dir mal den Wert $entry ausgeben, dann findest du heraus, dass $entry der Dateiname ohne Pfad ist. -d $entry versucht also nachzuschauen, ob $entry im aktuellen verzeichnis ein verzeichnis ist. da musst du noch $dir mitgeben, z.B.
Code: (dl
)
1
2
3
4
5
6
my $dir = "c:/input";
opendir(DIR, $dir) or die "Error: couldn't open dir '$dir': $!\n";
# oder
unless (opendir(DIR, $dir)) {
die "Error: couldn't open dir '$dir': $!\n";
}
2. lass dir mal den Wert $entry ausgeben, dann findest du heraus, dass $entry der Dateiname ohne Pfad ist. -d $entry versucht also nachzuschauen, ob $entry im aktuellen verzeichnis ein verzeichnis ist. da musst du noch $dir mitgeben, z.B.
Code: (dl
)
if -d "$dir/$entry"
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/