diff options
| -rw-r--r-- | challenge-119/vinod-k/perl/ch-1.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-119/vinod-k/perl/ch-1.pl b/challenge-119/vinod-k/perl/ch-1.pl new file mode 100644 index 0000000000..f719687c72 --- /dev/null +++ b/challenge-119/vinod-k/perl/ch-1.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl + +use strict; use warnings; + +my $N = $ARGV[0] || die "Please enter a decimal value less than 256"; + +die "Please enter a decimal value less than 256" unless(($N > 0) && ($N < 256)); + +my $N_Bin = sprintf ("%.8b", $N); + +my ($first, $second) = reverse ($N_Bin =~ /(\d{1,4})(\d{1,4})/); + +my $decimal = oct("0b".join ('', $first, $second)); + +print "Output:$decimal\n";
\ No newline at end of file |