12 lines
292 B
Perl
12 lines
292 B
Perl
|
use POSIX qw(:sys_wait_h EINTR);
|
||
|
|
||
|
|
||
|
($sysname, $nodename, $release, $version, $machine)
|
||
|
= POSIX::uname();
|
||
|
printf "$sysname\n";
|
||
|
printf "$nodename\n";
|
||
|
printf "$release\n";
|
||
|
printf "$version\n";
|
||
|
printf "$machine\n";
|
||
|
$nodename =~ s/\..*$//; # strip domain part, if any
|
||
|
printf "$nodename\n";
|