Comment puis-je détecter le système d'exploitation en Perl ?

Question

J'ai Perl sur Mac, Windows et Ubuntu. Comment puis-je savoir à l'intérieur du script lequel est lequel ? Merci d'avance.

Edit : On m'a demandé ce que je faisais. Il s'agit d'un script, qui fait partie de notre système de construction multiplateforme. Le script parcourt les répertoires et détermine les fichiers à construire. Certains fichiers sont spécifiques à une plate-forme, et donc, sous Linux, je ne veux pas construire les fichiers se terminant par _win.cpp, etc.

Answer 1

Examinez le $^O qui contiendra le nom du système d'exploitation :

print "$^O\n";

Quelles impressions linux sur Linux et MSWin32 sur Windows.

Vous pouvez également vous référer à cette variable par le nom $OSNAME si vous utilisez le Anglais module :

use English qw' -no_match_vars ';
print "$OSNAME\n";

Según perlport , $^O sera darwin sur Mac OS X.

---

Vous pouvez également utiliser le Config module de base, qui peut fournir les mêmes informations (et beaucoup plus) :

use Config;

print "$Config{osname}\n";
print "$Config{archname}\n";

Qui sur ma machine Ubuntu imprime :

linux
i486-linux-gnu-thread-multi

Notez que cette information est basée sur le système que Perl a été construit qui n'est pas nécessairement le système sur lequel Perl s'exécute actuellement (il en va de même pour l'option $^O y $OSNAME ) ; le système d'exploitation ne sera probablement pas différent mais certaines informations, comme le nom de l'architecture, peuvent très bien l'être.

Answer 2

Si vous avez besoin d'informations plus spécifiques sur Windows, ceci peut vous aider.

my $osname = $^O;

if( $osname eq 'MSWin32' ){{
  eval { require Win32; } or last;
  $osname = Win32::GetOSName();

  # work around for historical reasons
  $osname = 'WinXP' if $osname =~ /^WinXP/;
}}

Dérivé de sysinfo.t dont j'ai écrit la version originale.

Si vous avez besoin d'informations plus détaillées :

my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();

Answer 3

Sys::Info::OS semble être une solution potentielle relativement propre, mais ne semble pas actuellement supporter le Mac. Il ne devrait pas y avoir trop de travail pour l'ajouter.

Answer 4

La variable $^O (c'est un 'O' majuscule, pas un zéro) contient le nom du système d'exploitation.

En fonction de ce que vous voulez, il peut ou non donner la réponse que vous souhaitez - sur mon système, il donne 'linux' sans dire quelle distro. Je ne suis pas sûr de ce qu'il dit sur Windows ou MacOS.

Answer 5

Voici une référence rapide sur la façon de trouver le système d'exploitation de la machine locale à partir de Perl.

La variable $^O ($OSTYPE si vous utilisez l'anglais) contient le système d'exploitation pour lequel votre binaire perl a été construit.