Convert an IP address to its hex value. Useful when setting up network boot under Sun. For example:
ip2hex 192.168.21.1 returns IP 192.168.21.1 is HEX C0A81501
#!/usr/local/bin/perl
# IP address to HEX address converter
# usage: ip2hex [ip]
# ip2hex 158.23.45.10
# outputs 9E172D0A
# version 1.0
use Getopt::Std;
($me = $0) =~ s|.*/||;
getopts("h");
die "Usage: $me [ip]\n" if $opt_h;
$ip = $ARGV[0];
if (! $ip) {
print "Enter IP addr: ";
chop($ip = <STDIN>);
}
print "IP $ip is HEX ";
foreach (split /\./, $ip) {
printf "\U%02x", $_;
}
print "\n";