OS Detection

[cerberos76_]

Hi,
I would like to have a very small and simple routine to detect the current used server OS to be ablet to do some simple statistics. The parameter will be passed back as part of the image string in the 'current version' verification.

This is what I have now (from past projects):
#platform (win or unix) detection)
if ($ENV{'SHELL'}){
$platform = ($ENV{'SHELL'} =~ m|^/|) ? 'Unix' : 'Windows'; }
else {
$os1= $^O; $os2= $ENV{'OS'};
$platform = ($os1 eq 'MSWin32' || $os2 =~ /window/i) ? 'Windows' : 'Unix';
}

Do you know any way to detect MAC OS?
I know you could also write a similar thing from the $ENV{'HTTP_USER_AGENT'}, but usually you en up with a long elsif list...
If you have some code snippet which you tested and is reasonably compact, please pass it on.

[LoneOwl]

If you're wanting the server OS, use the Config module for a simple test script. It's a big module, and one of those instances where you wouldn't want to load it every single time, but it will have all you'll need to know, and more.

[cerberos76_]

Yes, the problem is I just with to keep that very small and low weight.Do you know what value $^O returns when run on a mac os?

I think I will use the $ENV{'HTTP_USER_AGENT'} anyway, as it is realible enough most of the time...

[LoneOwl]

If I recall right...

Code: Select all

$^O =~ /Mac/ or $^O =~ /darwin/ and $IsMac = 1;