From 46feb1df62a59a15249d33326743d3d756418fd7 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 7 Jan 2020 13:54:59 +0000
Subject: - Added solution by Fabrizio Poggi.

---
 challenge-042/fabrizio-poggi/perl/ch-1.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 challenge-042/fabrizio-poggi/perl/ch-1.pl

(limited to 'challenge-042')

diff --git a/challenge-042/fabrizio-poggi/perl/ch-1.pl b/challenge-042/fabrizio-poggi/perl/ch-1.pl
new file mode 100644
index 0000000000..9cf656fb89
--- /dev/null
+++ b/challenge-042/fabrizio-poggi/perl/ch-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+ 
+my $x;
+my $y;
+my $mod;
+my $oct;
+my @array;
+ 
+foreach $x (0..50){
+    print "Decimal $x = ";
+    if ($x < 8) {
+        $oct = $x;
+    } else {
+        do {
+            $y = int($x / 8);
+            $mod = $x % 8;
+            push (@array, $mod);
+            $x = $y;
+            } while ($x > 8);
+        push (@array, $x);
+        $oct = reverse @array;
+    }
+print "Octal $oct \n";
+@array=();
+}
-- 
cgit