I don't know if there is a pure Perl solution without using the Win32
namespace. If you are on a standard Win32 Perl distribution, you should
have the Win32 module, so some basic API calls are supported, like
Win32::GetOSVersion() (see below). You could also use backticks and the ver
command ala $foo = `ver` (also see below).
1)
Win32::GetOSVersion()
[CORE] Returns the array (STRING, MAJOR, MINOR, BUILD, ID), where
the elements are, respectively: An arbitrary descriptive string, the
major version number of the operating system, the minor version
number, the build number, and a digit indicating the actual
operating system. For ID, the values are 0 for Win32s, 1 for Windows
9X and 2 for Windows NT. In scalar context it returns just the ID.
2)
$foo = `ver`;
print $foo;
OUTPUTS:
Microsoft Windows XP [Version 5.1.2600]
-----Original Message-----
From: drieux
To: [EMAIL PROTECTED]
Sent: 5/10/02 5:08 PM
Subject: Re: win32 specification and API
On Friday, May 10, 2002, at 08:10 , Timothy Johnson wrote:
[..]
> Where the Win32 namespace
such a GEEK - I hadn't even thought of this in terms of
FOO::Win32 and Win32::*
as seperable - from the rest of the angst.
I guess my next question in this series - how to
tell - if
$Config{'osname'} eq 'win32'
whether this is NT X.X or Win2000 or one of the others?
ciao
drieux
-----
Ok, so this is a Mac Tool of some type, I think
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
