in reply to count files in a directory

Maybe a more concise approach, using globbing ?

#!/usr/bin/perl
use strict;
use warnings;

my $dir = '/home/oracle/test/Oracle/oradata';
my @files = <$dir>;
my $numfiles = scalar @files;
print "Files in $dir: $numfiles\n";

[download]
Hope it helps.

Replies are listed 'Best First'.
Re^2: count files in a directory
by Anonymous Monk on Oct 10, 2011 at 11:59 UTC
    It might work if you add 
    chdir $dir or die "Cannot chdir to '$dir': $!";
my @files = glob '*';

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom