challenge-084/arne-sommer/perl/reverse-integer-perl


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

#! /usr/bin/env perl

use feature 'say';

my $N = $ARGV[0] // die "Please specify an integer";

die "Integer only" unless $N =~ /^\-?\d+$/;

my $sign = $N < 0
  ? "-"
  : "";
  
my $new = $sign . reverse(abs($N));

($new >= -2147483648 && $new <= 2147483647)
  ? say $new
  : say "0";