smooker · February 1, 2025 13:54
diff --git a/sm_hex2dec.pl b/sm_hex2dec.pl
 #!/usr/bin/perl
 use strict;
 use warnings;
 use bigint;

 my $a1 = $ARGV[0];

 if ($a1 =~ m/0x/) {
 	$a1 = hex($a1);
 }
 printf("HEX: %64x\n", $a1);
 printf("DEC: %64d\n", $a1);
 printf("BIN: %0*b\n", 64, $a1);
	#!/usr/bin/perl
	use strict;
	use warnings;
	use bigint;

	my $a1 = $ARGV[0];

	if ($a1 =~ m/0x/) {
	$a1 = hex($a1);
	}
	printf("HEX: %64x\n", $a1);
	printf("DEC: %64d\n", $a1);
	printf("BIN: %0*b\n", 64, $a1);