He's right. The reason why it isn't catching the "dot" directories is because the negative match operator is !~, not !.
-----Original Message----- From: Harry Putnam [mailto:[EMAIL PROTECTED]] Sent: Saturday, June 22, 2002 7:47 AM To: [EMAIL PROTECTED] Subject: Re: Question about traversing dirs as well "Erik Riggenbach" <[EMAIL PROTECTED]> writes: > so here's my code and the problem is that it doesn't a) ignore the . and ... > dirs b) it doesn't acknowledge some dirs as being dirs. With some examples > where there are lots of files and Dirs it does print the '-' before the > dirs. Needless to say, if the recursion is not commented out it's an > infinite loop as it processes the . dir over and over. Any help would be > much appreciated. > Thanks, > Erik > > readmydirs('/mp3'); > > sub readmydirs{ > opendir(DIR, $_[0]); > my @lists = readdir DIR; > foreach my $element (@lists){ Maybe you need an explicit match here: > if(-d $element and !/^\.{1,2}$/){ if(-d $element and $element !~ /^\.{1,2}$/){ (untested..) > print "-"; > print $element; > print "\n"; > # readmydirs($element); > } > else{ > print $element; > print "\n"; > } > } > } > --- > Everyday we're told we live in the greatest country on earth and it's always > stated as an un deniable fact: Leos are born between July 23 and August 22, > fitted queen-size sheets measure 60x80 inches, and America is the greatest > country on earth. Having grown up with this in our ears, it's startling to > realize that other countries have nationalistic slogans too, none of which > are 'We're number two! > - Dave Sedaris, "Me Talk Pretty One Day " > > > > -- > 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] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
