Question

Дано целое число. если оно является положительным, то прибавь к нему 1; в противном случае не изменять его. Вывести полученное число. Кумир

Answer 1

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

say _solve_(shift(@ARGV));


sub _solve_{
return('Not a number') if(int($exec_arg) !~ /^[\d].*?$/six)
if(int($exec_arg) >= 0 ){
  return(int($exec_arg)++);
}else{
  return($exec_arg);
}
}