20 lines
513 B
Perl
20 lines
513 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Find qw(finddepth);
|
|
|
|
|
|
#sudo mount -t cifs //gw004/Versaflow /media/versashare -o username=administrator,password=8-Tung,domain=mlands
|
|
|
|
my $share = '/home/steffen/svn/aoiv/app';
|
|
#my $share = '/media/versashare/versaflow1/Protocol/';
|
|
|
|
finddepth( sub {
|
|
return if($_ eq '.' || $_ eq '..' );
|
|
|
|
if ( -d $File::Find::name ) {
|
|
my $cnt = `find "$File::Find::name" -type f | wc -l`;
|
|
print "$File::Find::name : $cnt" ;
|
|
}
|
|
}, $share); |