Why not:
my $spec = "/var/www/*.mp3";
my ( @files ) = glob $spec;
print "Checked '$spec' - found ", scalar(@files), " files:\n ",
join("\n ", @files ), "\n";
regards
Jeff
> -----Original Message-----
> From: Fabian Funk [mailto:[EMAIL PROTECTED]]
> Sent: 04 September 2002 20:42
> To: [EMAIL PROTECTED]
> Subject: Reading Directory
>
>
> Hi, I'm pretty new to perl. I want to open a Directory with
> mp3 files an
> other files. My Poblem is i need only the mp3 files. How can
> i get only
> the mp3 files and not other files ?
>
> I tried:
>
> while (defined(my $file=readdir(DIR))) {
> next if $file=~ /^\.\.?$/;
> next unless /\.[mp3]$/i;
> push(@files,$file);
>
> But i get "Use of uninitialized value in pattern match (m//)
> What's wrong ???
>
>
> --
> 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]
