e68fe9d2db
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1561 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
10 lines
212 B
Perl
Executable File
10 lines
212 B
Perl
Executable File
#!/usr/bin/perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#egan@us.ibm.com
|
|
|
|
$mask = pack("CCCC",$ARGV[0],$ARGV[1],$ARGV[2],$ARGV[3]);
|
|
$bits += unpack("%32b*", $mask);
|
|
|
|
print "$bits\n";
|
|
|