OS Info

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How can I determine whether my AS 5.6..1 script is running under MSWin32 NT/2000/XP or MSWin32 95/98 etc?

use Config;

print @Config{qw/osname archname/};
[download]

gives me the same info in both cases.

Comment on OS Info Download Code

Replies are listed 'Best First'.

Re: OS Info
by ajt (Prior) on Feb 07, 2003 at 08:49 UTC

Hi Anon,

Try the following thread of nodes Which flavor of Win32? there are some clever and very detailed answers in there.

ajt

[reply]

Re: Re: OS Info

by Anonymous Monk on Feb 07, 2003 at 09:01 UTC

Thanks. That's perfect.

[reply]

Re: Re: Re: OS Info

by demerphq (Chancellor) on Feb 07, 2003 at 12:53 UTC

Win32::GetOSVersion()

Win32::GetOSName()

--- demerphq
my friends call me, usually because I'm late....

[reply]
[d/l]
[select]

Re: OS Info
by helgi (Hermit) on Feb 07, 2003 at 14:29 UTC

use warnings;
use strict;
use Win32;
my ($servicepack,$major,$minor,$build,$id) = Win32::GetOSVersion;
my $os;
my $version = $major+($minor/10);
$version = sprintf "%2.1f", $version;

if    ($id == 0 ) { $os = "Win32s"; }
elsif ($id == 1 ) { $os = "Win95";  }
elsif ($id == 2 ) { $os = "WinNT";  }
else              { $os = "Unknown"; }

print "You are running $os version $version with $servicepack\n";
[download]

--
Regards,
Helgi Briem
helgi AT decode DOT is

[reply]
[d/l]

Perl $^O values for various operating systems
by PodMaster (Abbot) on Feb 07, 2003 at 14:39 UTC

Also mirrored at http://crazyinsomniac.perlmonk.org/perl/misc/perloses.htm.


Your skill will accomplish what the force of many cannot
	PerlMonks