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){
if(-d $element and !/^\.{1,2}$/){
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]
