challenge-119/dave-cross/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

say oct '0b' . join '', reverse get_number() =~ /(\d{4})(\d{4})/;

sub get_number {
  my $err = "Give me an integer less than 256\n";

  die $err unless @ARGV;
  die $err if $ARGV[0] =~ /\D/;
  die $err if $ARGV[0] >= 256;

  return sprintf '%08b', $ARGV[0];
}