Harry Putnam <[EMAIL PROTECTED]> writes:
>> 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..)
Sorry I ignored your other comments. You need File::Find I think.
Read the section about the &wanted fucntion.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
