Mega Code Archive

 

Categories / Perl / Data Type

 

Reads any kind of integer

#!/usr/local/bin/perl  $integer = <STDIN>;  chop ($integer);  if ($integer !~ /^[0-9]+$|^0[xX][0-9a-fa-F]+$/) {      die ("$integer is not a legal integer\n");  }  if ($integer =~ /^0/) {      $integer = oct ($integer);  }  print ("$integer\n");