From 9c50a4494379cdd44b4a877aa949c3763dd60a37 Mon Sep 17 00:00:00 2001
From: Anita Patel <apatel@c02y30cajk7l.vhl.dom>
Date: Mon, 13 Jan 2020 12:57:44 -0500
Subject: [PATCH] perl script to convert images from png to jpg

---
 shell.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 shell.pl

diff --git a/shell.pl b/shell.pl
new file mode 100644
index 0000000..115e7d8
--- /dev/null
+++ b/shell.pl
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+use File::Basename;
+
+# find the imagemagick executable
+my $IMG_CMD=`which magick`;
+
+# remove newlines
+chomp $IMG_CMD;
+
+# build array of files with .png extension
+my @files=`ls image_batch/*.png`;
+my $file;
+
+foreach my $file (@files) {
+    # remove newlines
+    chomp $file;
+    # remove the extension
+    my $basename=basename($file, ".png");
+    #remove newlines
+    chomp $basename;
+    system("$IMG_CMD $file image_batch/" . $basename . ".jpg\n");
+    printf("Successfully converted %s.png to jpg\n", $basename);
+  }