first commit

2025-09-17 16:08:16 +08:00
parent 9395faa6b2
commit 3ff47c11d5
1318 changed files with 117477 additions and 0 deletions
--- a/perl/Examples/Chap1/total-size
+++ b/perl/Examples/Chap1/total-size
@@ -0,0 +1,28 @@
+
+
+###
+### total_size
+###
+
+## Chapter 1 section 4
+
+sub total_size {
+  my ($top) = @_;
+  my $total = -s $top;
+  my $DIR;
+
+  return $total if -f $top;
+  unless (opendir $DIR, $top) {
+    warn "Couldn't open directory $top: $!; skipping.\n";
+    return $total;
+  }
+
+  my $file;
+  while ($file = readdir $DIR) {
+    next if $file eq '.' || $file eq '..';
+    $total += total_size("$top/$file");
+  }          
+  
+  closedir $DIR;
+  return $total;
+}