l i n u x - u s e r s - g r o u p - o f - d a v i s
L U G O D
 
Next Meeting:
April 21: Google Glass
Next Installfest:
TBD
Latest News:
Mar. 18: Google Glass at LUGOD's April meeting
Page last updated:
2001 Dec 30 17:14

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
Re: [vox-tech] perl question: how to detect operating system?
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] perl question: how to detect operating system?




--- Peter Jay Salzman <p@dirac.org> wrote:
> in perl, how does one go about detecting what
> operating system the
> program is running under?

---------------------------
#!/perl/bin/perl -w
use strict;
my $OS = '';

# ----- Thanks to the author of CGI.pl -----
#
# FIGURE OUT THE OS WE'RE RUNNING UNDER
# Some systems support the $^O variable.  If not
# available then require() the Config library
unless ($OS) {
    unless ($OS = $^O) {
	require Config;
	$OS = $Config::Config{'osname'};
    }
}

if    ($OS=~/Win/i)     { $OS = 'WINDOWS'; }
elsif ($OS=~/vms/i)     { $OS = 'VMS'; } 
elsif ($OS=~/^MacOS$/i) { $OS = 'MACINTOSH'; }
elsif ($OS=~/os2/i)     { $OS = 'OS2'; }
else  { $OS = 'UNIX'; }

print "The OS is: ", $OS;

----------------------------------

Happy Holidays,
Jim

__________________________________________________
Do You Yahoo!?
Send your FREE holiday greetings online!
http://greetings.yahoo.com
_______________________________________________
vox-tech mailing list
vox-tech@lists.lugod.org
http://lists.lugod.org/mailman/listinfo/vox-tech


LinkedIn
LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
facebook
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.