Total Files

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Total Files by petdance (Parson) on Jun 07, 2001 at 22:35 UTC
Most straightforward approach would be: `my @filelist = <*>; my $nfiles = scalar @filelist;` [download] You may also want to look into the `readdir` function. xoxo, Andy %_=split/;/,".;;n;u;e;ot;t;her;c; ". # Andy Lester 'Perl ;@; a;a;j;m;er;y;t;p;n;d;s;o;'. # http://petdance.com "hack";print map delete$_{$_},split//,q< andy@petdance.com >	[reply] [d/l]
(ar0n) Re (2): Total Files by ar0n (Priest) on Jun 07, 2001 at 23:00 UTC
If he just wants the number of files, why the array first? `my $nfiles = scalar grep -f, glob("*");` [download] [ ar0n ]	[reply] [d/l]
Re: (ar0n) Re (2): Total Files by petdance (Parson) on Jun 07, 2001 at 23:03 UTC
If he just wants the number of files, why the array first? Because someone who's new enough to not know how to get the number of files in a directory could probably use the benefit of having it spelled out in two distinct steps. Not everything in Perl is a matter of golf. xoxo, Andy %_=split/;/,".;;n;u;e;ot;t;her;c; ". # Andy Lester 'Perl ;@; a;a;j;m;er;y;t;p;n;d;s;o;'. # http://petdance.com "hack";print map delete$_{$_},split//,q< andy@petdance.com >	[reply]
(ar0n) Re (4): Total Files by ar0n (Priest) on Jun 07, 2001 at 23:14 UTC
Re: Total Files by the_slycer (Chaplain) on Jun 07, 2001 at 22:42 UTC
Assuming that you know how to opendir and readdir you just have to test whether it's a file or not with the `-f` operator. eg: `opendir (D,".")\|\| die "nope sorry"; for (readdir(D)){ ++$count if -f; } print $count;` [download]	[reply] [d/l] [select]
Re: Re: Total Files by particle (Vicar) on Jun 08, 2001 at 16:12 UTC
here's a different twist. at first i thought map was a good fit for this.... merlyn has helped me learn to love map. `opendir D,'.' or die "opendir: $!\n"; print((map{$i+=!-f}readdir(D))-$i);` [download] of course, for a newbie, this isn't appropriate as is, since without temp variables it's a little hard to understand. i just thought i'd post it because i prefer opendir and readdir, and i love map. =Particle	[reply] [d/l]
Re: Total Files by Eradicatore (Monk) on Jun 07, 2001 at 22:37 UTC
`#!/usr/local/bin/perl -w @files = glob("*"); $i = 0; foreach $f (@files) { if (-f $f) {$i++} } print "num plain files: $i\n";` [download] Justin Eltoft "If at all god's gaze upon us falls, its with a mischievous grin, look at him" -- Dave Matthews	[reply] [d/l]
Re: Total Files by wog (Curate) on Jun 07, 2001 at 22:41 UTC
Without putting all the filenames into memory: `opendir DIR, "somedirectory" or die "opendir: $!\n"; my $count; !/\A\.\.?\z/ && $count++ while defined($_ = readdir(DIR)); closedir DIR or warn "closedir: $!\n"; print "$count\n";` [download] (You'd need to add a -f or similar test for it to only consider plain files, or non-directories, etc.)	[reply] [d/l]