mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-10-31 03:12:30 +00:00
13 lines
317 B
Raku
Executable File
13 lines
317 B
Raku
Executable File
#!/usr/bin/perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#egan@us.ibm.com
|
|
|
|
$bits = ((2**32) - 1) << (32 - $ARGV[0]);
|
|
|
|
printf "%d.", ($bits & 0xff000000) >> 24;
|
|
printf "%d.", ($bits & 0x00ff0000) >> 16;
|
|
printf "%d.", ($bits & 0x0000ff00) >> 8;
|
|
printf "%d\n", ($bits & 0x000000ff);
|
|
|
|
exit;
|