n7ekb/src-ed
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added CPU socket count to hello perl example. Also tweaked

Browse source 
command line argmument handling section to match output of
python example script.
This commit is contained in:
Ed Braaten 2015-04-23 22:43:10 -07:00
parent 2d6766f0bb
commit 2542c6b1c3
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
perl/hello.pl
View file

@ -14,10 +14,15 @@ my $verinfo = `git describe --abbrev=7 --dirty --always --tags`;
print "Hello Perl World! Version: $verinfo\n";
# Show list of command line arguments
print "Command line args: @ARGV\n";
print "ARGV[0] = $ARGV[0]";
print "ARGV[1] = $ARGV[1]";
print "ARGV[2] = $ARGV[2]";
print "Command line args: ";
foreach (@ARGV) {
print " $_";
}
print "\n";
# Determine number of physical CPU sockets
my $socketcount=`cat /proc/cpuinfo | grep 'physical id' | sort | uniq | wc -l`;
print "CPU socket count: $socketcount\n";
# print out our animals array in reverse-sorted order
print "\nValue of animals array:\n";