diff options
| author | vinodk89 <vinodkk89@gmail.com> | 2021-06-29 17:32:12 +0530 |
|---|---|---|
| committer | vinodk89 <vinodkk89@gmail.com> | 2021-06-29 17:32:12 +0530 |
| commit | 959fc001499bdbb32c534e957e5256e29d0ec261 (patch) | |
| tree | c4ff0ea7227b964295b99f60a38b9c5db17b063d | |
| parent | 8838bfc839dde10f1d5da28305dba613cadf4326 (diff) | |
| download | perlweeklychallenge-club-959fc001499bdbb32c534e957e5256e29d0ec261.tar.gz perlweeklychallenge-club-959fc001499bdbb32c534e957e5256e29d0ec261.tar.bz2 perlweeklychallenge-club-959fc001499bdbb32c534e957e5256e29d0ec261.zip | |
Solutions for challenge 119-Task#1
| -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 |