perl - Perlを使用したオペレーティングシステムの検出と表示

Question

Perlを使用してコンピューターのオペレーティングシステムを表示したい。私は次のようにすると思いました

#!/usr/bin/perl
use strict;
use warnings;

my $os = $^O;
print "$os\n";

しかし、私が得た出力は

linux

出力を次のように表示したい

Windows XP

これを行う方法？助けてください。前もって感謝します。

Answer 1

POSIXモジュールが提供するuname（）関数を使用します。

Answer 2

すべてのPerlディストリビューションにはConfigモジュールが付属しています。このモジュールはハッシュをインポートするため少し厄介ですが、%Configあらゆる種類のPerl構成情報にアクセスするための簡単な方法です。

use Config;  # This exports a %Config hash

print "My OS is $Config{osname}\n";
print "My OS version is $Config{osvers}\n";
print "My Architecture Family is $Config{archname}\n";

#
# Print out all of the keys, and see which one looks like one
# you can use. "ld" is actually a rather nice value
#
for my $key (sort keys %Config) {
    no warnings qw(uninitialized); # Some elements have undef values
    print qq($key: "$Config{$key}"\n);
}

Answer 3

あなたはおそらく探していますか

use CGI                 qw( );
use HTTP::BrowserDetect qw( );

my $cgi = CGI->new();
print $cgi->header('text/plain');

my $bd = HTTP::BrowserDetect->new($cgi->user_agent());
print $bd->os_string(), "\n";