Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (17 sloc) 579 Bytes
#! /usr/bin/perl -w
use strict;
$| = 1;
# $Id: sysinfo.pl 961 2006-05-15 11:12:48Z abeltje $
use vars qw( $VERSION );
$VERSION = 0.001;
use File::Spec;
use FindBin;
use lib File::Spec->catdir( $FindBin::Bin, 'lib' );
use lib $FindBin::Bin;
use Test::Smoke::SysInfo;
my $si = Test::Smoke::SysInfo->new ();
printf "Hostname : %s\n", $si->host;
printf "Number of CPU's : %s\n", $si->ncpu;
printf "Processor type : %s\n", $si->cpu_type; # short
printf "Processor description: %s\n", $si->cpu; # long
printf "OS and version : %s\n", $si->os;