Test du système en Perl

Résolu
dmganges Messages postés 152 Statut Membre -  
dmganges Messages postés 152 Statut Membre -
Bonjour,
J'ai un script perl qui doit lancer une commande différente suivant que je me trouve sous Linux ou sous XP.

Comment dans ce script tester le système sur lequel je suis ?

Pardon si la question a été posée, mes recherches sur CCM et google ne donnent rien :-(

MERCI d'avance !

3 réponses

  2.
    dmganges Messages postés 152 Statut Membre 19
     
    MERCI zipe31 !

    Mieux vaut un qui sait que 10 qui cherchent !

    En plus la page est pleine d'astuces !!

    Ma petite contrib pour celles et ceux qui veulent juste faire un copier/coller :

    #!/usr/bin/perl
    use strict;
    use Config;
    {
    print "$Config{osname}\n";
    print "$Config{archname}\n";
    }

    # perl system.pl
    linux
    i686-linux-thread-multi
    0
    1. zipe31 Messages postés 34620 Date d'inscription   Statut Contributeur Dernière intervention   6 501
       
      De rien, happy for you ;-))

      Mieux vaut un qui sait que 10 qui cherchent !
      Ben je n'en savais rien avant que tu poses la question ;-\
      0
    2. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
       
      Salut,

      Allez, pour amusement ;-) 
      :~$ perl -V:osname -V:archname 
osname='linux'; 
archname='i486-linux-gnu-thread-multi';


      ou 
      :~$ perl -V::osname -V::archname
'linux';
'i486-linux-gnu-thread-multi';
      0
  3. bob031 Messages postés 8228 Statut Membre 473
     
    Hello,

    Merci pour le lien zip

    bonne pioche !

    :-)
    0