first commit

recursivtest.pl

@@ -0,0 +1,20 @@
+#!/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);