Digimer at 03:19, 5 May 2013

2013-05-05T03:19:53Z

← Older revision		Revision as of 03:19, 5 May 2013
Line 3:		Line 3:
	This script takes an IPv4 address and converts it to a [[hexadecimal]] string suitable for use with PXE server configuration file names.		This script takes an IPv4 address and converts it to a [[hexadecimal]] string suitable for use with PXE server configuration file names.

	Download the perl source: [https://alteeve.~~com~~/files/ip_to_hex ip_to_hex].		Download the perl source: [https://alteeve.ca/files/ip_to_hex ip_to_hex].

	<source lang="perl">		<source lang="perl">
	#!/usr/bin/perl		#!/usr/bin/perl
	# Author: Digimer; digimer@alteeve.~~com~~		# Author: Digimer; digimer@alteeve.ca
	# Date: Jun. 21, 2010		# Date: Jun. 21, 2010
	# License: GPLv2		# License: GPLv2

Digimer: Created page with '{{howto_header}} This script takes an IPv4 address and converts it to a hexadecimal string suitable for use with PXE server configuration file names. Download the perl sour…'

2010-06-22T03:44:05Z

Created page with '{{howto_header}} This script takes an IPv4 address and converts it to a hexadecimal string suitable for use with PXE server configuration file names. Download the perl sour…'

Páàjì titun

{{howto_header}}

This script takes an IPv4 address and converts it to a [[hexadecimal]] string suitable for use with PXE server configuration file names.

Download the perl source: [https://alteeve.com/files/ip_to_hex ip_to_hex].

<source lang="perl">
#!/usr/bin/perl
# Author: Digimer; digimer@alteeve.com
# Date: Jun. 21, 2010
# License: GPLv2

# Be clean
use strict;
use warnings;

# Read the IP address
my $ip=$ARGV[0];

# Sanity-check it.
usage() if not $ip;
my ($a, $b, $c, $d)=($ip=~/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/);
usage() if ((not defined $a) || (not defined $b) || (not defined $c) || (not defined $d));

# Convert and print
print $ip." = ".convert($a).convert($b).convert($c).convert($d), "\n";

exit (0);

sub convert
{
my ($dec)=@_;

# Convert the decimal to hexadecimal and pad the result with a leading
# zero if needed.
my $hex = sprintf("%x", $dec);
$hex=length($hex) == 1 ? "0".$hex : $hex;

# Return the upercase result.
return (uc($hex));
}

# Useful death.
sub usage
{
print "\nPlease pass in the IP address as the only argument.\n";
print "Do not pass the netmask. Example:\n";
print "\n\t./ip_to_hex 192.168.1.100\n\n";
exit(1);
}
</source>

{{footer}}

Ip to hex - Revision history

Digimer at 03:19, 5 May 2013

Digimer: Created page with '{{howto_header}} This script takes an IPv4 address and converts it to a hexadecimal string suitable for use with PXE server configuration file names. Download the perl sour…'