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

J'ai Perl sur Mac, Windows et Ubuntu. Comment puis-je dire à partir du script qui est qui? Merci à l'avance.

Edit: m'a demandé ce que je fais. C'est un script qui fait partie de notre croix-plate-forme de construction du système. Le script parcourt les répertoires et les chiffres quels fichiers à construire. Certains fichiers sont spécifiques à la plateforme, et donc, sur Linux, je ne veux pas construire les fichiers se terminant par _win.cpp, etc.

  • Pourquoi avez-vous besoin de savoir? [Il y a peut-être plus approprié de répondre à votre question, en fonction de ce que (le cas échéant) c'est que vous faites c'est de la plate-forme de personne à charge.]
InformationsquelleAutor mxcl | 2008-12-02
  1. 78

    Examiner les $^O variable qui contiendra le nom du système d'exploitation:

    print "$^O\n";

    Qui imprime linux sur Linux et MSWin32 sur Windows.

    Vous pouvez aussi 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";

    Selon perlport, $^O sera darwin sur Mac OS X.

    Vous pouvez également utiliser le Config module de base, qui peuvent 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

    Noter que cette information est basée sur le système que Perl a été construit, ce qui n'est pas nécessairement le système de Perl est actuellement en cours d'exécution sur (la même chose est vraie pour $^O et $OSNAME); le système d'exploitation ne pourrait pas être différent, mais certaines informations, comme le nom de l'architecture, peut très bien être.

    • Merci 🙂 Et pour d'autres personnes qui peuvent utiliser cette réponse, cygwin perl renvoie "cygwin", il y a donc deux possibilités pour Windows.
    • Plus que deux; il y a un dos de port, et le os2 port utilisé pour être en mesure d'exécuter sur windows. Toutes les valeurs possibles de $^O sont en théorie documenté dans <perldoc.perl.org/perlport.html>.
    • print "$^O\n"; en effet, l'impression "darwin" sur mon Mac OS X système.
    • faute de frappe dans votre lien par la voie
    • La faute vient de l'arrière de l'angle de support. Il devrait être perldoc.perl.org/perlport.html.
    • Fonctionne même pour Windows 10 sous-système Windows pour Linux:, précisant que "linux" lorsqu'il est exécuté via ubuntu-bash, "msys" et dans maternelle mode Windows.
    • Dans le cas où quelqu'un est temporairement bloqué sur ce parce que vous êtes l'obtention de STDOUT_TOP0 comme sortie, assurez-vous que vous utilisez $^O au lieu de $^0. Je ne peux pas vous dire comment je le sais, mais faites-moi confiance...

    InformationsquelleAutor Robert Gamble
  2. 12

    Si vous avez besoin de plus d'informations spécifiques sur Windows, cela peut 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();
    • win32 utilise un obsolète fonction GetVersionExA. Cela ne fonctionne pas vor Version > 6.2
    • En effet, et il semble que il n'y a pas de remplacement direct. C'est pourquoi quelqu'un qui a besoin de ce devrait comprendre comment résoudre le problème et de fournir une pull request. J'utilise rarement des Fenêtres plus de toute façon, il n'est pas susceptible d'être moi.
    InformationsquelleAutor Brad Gilbert
  3. 7

    Sys::Info::OS ressemble à une relativement propre potentiel de la solution, mais pour l'instant, ne semble pas pour le support de Mac. Il ne devrait pas être trop de travail pour ajouter que si.

    • Cela aurait été une meilleure solution, si seulement il serait le support de Mac. Je préfère le compilateur assistée par fonctions, à la maintenance,-problème des chaînes de caractères.
    • search.cpan.org/perldoc?Sys::Info::OS
    InformationsquelleAutor Leon Timmermans
  4. 6

    Regarder à l'intérieur de la source pour File::Spec pour voir comment il charge le droit délégué basé sur le système d'exploitation. 🙂

    File::Spec dispose d'un module Perl fichier pour chaque OS. File::Spec::Win32, File::Spec::OS2, etc...

    Il vérifie le système d'exploitation et les appropriée .pm fichier lors de l'exécution basé sur les OS.

    # From the source code of File::Spec
my %module = (
      MSWin32 => 'Win32',
      os2     => 'OS2',
      VMS     => 'VMS',
      NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
      symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
      dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
      cygwin  => 'Cygwin',
      amigaos => 'AmigaOS');


my $module = $module{$^O} || 'Unix';

require "File/Spec/$module.pm";
our @ISA = ("File::Spec::$module");
    • C'est probablement la meilleure réponse de tous ces. Malheureusement, il n'est pas voté comme populaire parce que personne ne veut faire des recherches sur leur propre au-delà de Débordement de la Pile. Je vais ajouter à la réponse que les gens paresseux ne pas avoir à passer par tout le travail dur de cliquer sur un lien. 😛
    InformationsquelleAutor brian d foy
  5. 3

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

    Selon ce que vous voulez, il peut ou peut ne pas donner la réponse que vous voulez sur mon système, il donne "linux", sans dire lesquels distro. Je ne suis pas si sûr de ce qu'il dit sur Windows ou MacOS.

    InformationsquelleAutor Geoglyph
  6. 2

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

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

    InformationsquelleAutor willasaywhat
  7. 1

    Un classique one-liner:

    my $windows=($^O=~/Win/)?1:0;# Are we running on windows?
    • Sauf si vous êtes en cours d'exécution darwin os !
    • De la merde! Vous avez raison! Le rendant sensible à la casse semble pour le fixer. J'ai corrigé ci-dessus. Bonne prise!
    • le casse version ne détecte pas "cygwin"
    InformationsquelleAutor Hawk
  8. 0
    #Assign the $home_directory variable the path of the user's home directory
my $home_directory = ($^O eq /Win/) ? $ENV{HOMEPATH} : $ENV{HOME};
#Then you can read/write to files in the home directory
open(FILE, ">$home_directory/my_tmp_file");
print FILE "This is a test\n";
close FILE;
#And/or read the contents of the file
open(FILE, "<$home_directory/my_tmp_file");
while (<FILE>){
    print $_;
}
close FILE;
    InformationsquelleAutor bcarroll
  9. 0

    Pour un générique de la cartographie dans un pré-emballés module perl, découvrez Perl::OSType.

    Il est utilisé par Module::Build.

    InformationsquelleAutor Randall
  10. -3

    oui à l'aide de Config du module peut être une bonne chose. Une possibilité est d'obtenir les informations à partir de /etc/*libération des fichiers

    pour eg..

    cat /etc/os-release

    NAME="UBUNTU"
VERSION="12.0.2 LTS, Precise Pangolin"
ID="UBUNTU"
ID_LIKE=debian
PRETTY_NAME="Ubuntu precise (12.0.2 LTS)"
VERSION_ID="12.04"
    • Et ce que sur windows?
    • utiliser Win32; #module pour interagir avec l'API win32.<br/> Win32::GetOSName() - sera de retour le nom du système d'exploitation<br/> Win32::GetOSVersion()<br/> [CORE] Retourne la liste (STRING, MAJEUR, MINEUR, CONSTRUIRE, ID), où les éléments sont, respectivement: l'arbitraire d'Un descriptif de la chaîne, le numéro de version majeure du système d'exploitation, le numéro de version mineure, le numéro de build, et d'un chiffre indiquant le système d'exploitation.<br/>Vous obtenez o/p<br/> <
      s21.postimg.org/ymuhihbsn/win32_os_info_perl.jpg><br      > pour plus d'info abot module Win32 : <br/><search.cpan.org/~jdb/Win32-0.47/Win32.pm>
    • Bien sûr, mais il n'y a pas de tel fichier comme /etc/os-release et vous ne savez pas à l'avance sur la plate-forme.
    • Salut @M42, Unix et DOS de la famille ont beaucoup de choses différentes.
    • Je pense que vous ne comprenez pas la question. Il demande: "Comment puis-je détecter le système d'exploitation en Perl?". Votre solution n'a pas de réponse.
    • Je suis désolé, j'étais en mode edit, Salut @M42, Unix et DOS de la famille ont beaucoup de choses différentes. pour windows, tapez msinfo32 sur cmd.exe ou de rediriger la s/p de fichier msinfo32 /nfo C:\TEMP\windows_info.nfo
    • aussi cela aidera my ( $osvername, $major, $minor, $build, $id ) = Win32::GetOSVersion(); print "\n\nOS version - $osvername\nMajor # - $major\nMinor # - $minor\nBuild - $build\nID - $id \n\n";

    InformationsquelleAutor GC 13