Merge pull request #7557 from E7-87-83/newt

Week 203 Task 2

1 files changed, 49 insertions, 0 deletions

diff --git a/challenge-203/cheok-yin-fung/perl/ch-2.pl b/challenge-203/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..5f20d3ace9
--- /dev/null
+++ b/challenge-203/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,49 @@
+# The Weekly Challenge 203
+# Task 2 Copy Directory
+# Usage: perl ch-2.pl $source $target
+use v5.30.0;
+use warnings;
+
+my $source = $ARGV[0];
+my $target = $ARGV[1];
+
+die "$source is not a directory" unless -d $source;
+die "$target is not a directory" unless -d $target;
+
+# dir_walk taken from "Higher Order Perl" by Mark Jason Dominus
+
+sub dir_walk {
+    my ($top, $code, $dirname) = @_;
+    my $DIR;
+
+    $code->($top, $dirname);
+
+    if (-d $top) {
+        my $file;
+        unless (opendir $DIR, $top) {
+            warn "Couldn't open directory $top: $!; skipping.\n";
+            return;
+        }
+        while ($file = readdir $DIR) {
+            next if $file eq "." || $file eq "..";
+            dir_walk("$top/$file", $code, $file);
+        }
+    }
+}
+
+sub copy_dir {
+    if ($_[1]) {
+        if (-d $_[0]) {
+            my $dirname = $_[1];
+            my $reldir = substr($_[0], length($source));
+            my $relpdir = reverse substr(
+                (reverse $reldir), index(
+                    (reverse $reldir), "/"
+                )
+            );
+            `cd $target$relpdir && mkdir $dirname`;
+        }
+    }
+}
+
+dir_walk($source, \&copy_dir);