first commit

perl/Examples/Chap2/rdconfig-uparam

@@ -0,0 +1,21 @@
+
+
+###
+### read_config_userparam
+###
+
+## Chapter 2 section 1.3
+
+sub read_config {
+  my ($filename, $actions, $user_param) = @_;        
+  open my($CF), $filename or return;  # Failure
+  while (<$CF>) {
+    my ($directive, $rest) = split /\s+/, $_, 2;
+    if (exists $actions->{$directive}) {
+        $actions->{$directive}->($rest, $userparam, $actions);
+    } else {
+      die "Unrecognized directive $directive on line $. of $filename; aborting";
+    }
+  }
+  return 1;  # Success
+}