count files in a directory

$dirname = "/home/oracle/test/Oracle/oradata";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){
     print("$filename\n");
        $flag=1;
}
closedir(DIR);

[download]

Comment on count files in a directory Download Code
Re: count files in a directory by pvaldes (Hermit) on Oct 10, 2011 at 11:01 UTC
`need to get the values and mail` sorry, I don't understand the question... what mail? this is only a list of files. If you use a list in a scalar context you will get the number of elements `my $dirname = "/home/oracle/test/Oracle/oradata"; opendir (my $DIR, $dirname ); my $num_of_files = () = readdir $DIR; print "Found ", ($num_of_files - 2), " files in the dir $dirname\n"; closedir $DIR;` [download] Updated: don't add ".." and "." to the sum	[reply] [d/l] [select]
Re: count files in a directory by keszler (Curate) on Oct 10, 2011 at 11:05 UTC
`need to get the values and mail` Read values and email addresses from the files? Count the files and send email with the count? Pls help us help you.	[reply] [d/l]
Re: count files in a directory by j0se (Monk) on Oct 10, 2011 at 11:07 UTC
To count the number of files in `mydir` you could use: `#!/usr/bin/perl use strict; use warnings; my $dirname = "/mydir"; opendir ( DIR, $dirname ) \|\| die "Error in opening dir $dirname\n"; my $count; while ( (my $filename = readdir(DIR)) ) { next if $filename =~ /^\.{1,2}$/; # skip . and .. $count++; } closedir(DIR); print "$count files live in '$dirname'\n";` [download] Update: a sample mail sending code. Have a nice day, j	[reply] [d/l] [select]
Re: count files in a directory by manuelsv (Initiate) on Oct 10, 2011 at 11:51 UTC
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.	[reply] [d/l]
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]
Re: count files in a directory by jwkrahn (Prior) on Oct 10, 2011 at 11:59 UTC
count files in a directory This will give you the count of "files" in a directory: `my $dirname = "/home/oracle/test/Oracle/oradata"; opendir my $DIR, $dirname or die "Error in opening dir '$dirname' beca +use: $!"; my $count = grep -f "$dirname/$_", readdir $DIR; closedir $DIR;` [download]	[reply] [d/l]


Syntactic Confectionery Delight
	PerlMonks

count files in a directory

The best material for plates (tableware) is: