Discussion :

[Junness]

Bonjour,

après avoir fait des recherches dans le forum et des bouquins de programmations Perl, je n'ai pas trouvé comment savoir dans un script sous quel OS est ce script.

J'explique mon soucis : j'écris un script Perl ou j'utilise la fonction split afin de récupérer un nom de fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

split m!(\\)!,$line

ou $line correspond à un path, je récupère ensuite le dernier élément du tableau fourni par split.

J'ai fait ce script sous windows, il marche . Mais sous linux(ce script doit pouvoir marcher sous les deux) je dois passer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

split m!(\/)!,$line

Je voudrais savoir si il existe un moyen donc de connaitre l'os sous lequel on travaille (un peu dans le genre de os.name sous python) afin d'entourer ce code par un condition.

Merci de votre aide.

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $^O;

[Arioch]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $^O;

Ah oui, aussi

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
print "$ENV{OS} ou $^O\n";
Windows_NT ou MSWin32

[Jedai]

On a répondu à ta question mais pas vraiment à ton besoin à mon avis : au lieu de faire le parsing à la main et en différenciant selon deux types d'OS, pourquoi ne pas simplement déléguer le travail à des modules qui font déjà ça parfaitement sur à peu près n'importe quelle plateforme ? D'autant qu'ils sont dans le CORE, c'est à dire qu'ils sont distribués directement avec Perl !
Je parle de File::Spec, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use File::Spec::Functions qw(splitpath);
my (undef, undef, $filename) = splitpath($line);

--
Jedaï

[djibril]

ou bien tout simplement utiliser File::Basename.
Et si tu voulais juste recuperer le nom d'un fichier dans un chemin (path), c'est expliqué dans la FAQ avec un exemple dessus

[Arioch]

Bonjour,

regarde ce que contient ta variable d'environnement %ENV.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
foreach(keys %ENV)
{
    print "$_ = $ENV{$_}\n";
}

Au boulot sur mon Windows 2000, j'ai ça en résultat (extrait) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SYSTEMROOT = C:\WINNT
WINDIR = C:\WINNT
OS = Windows_NT

Le même script sur notre serveur AIX renvoie ça (toujours un extrait) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
>perl -e 'foreach(keys %ENV) { print "$_ = $ENV{$_}\n";}'
HOST_TYPE = UNIX
LANG = fr_FR
SHELL = /usr/bin/ksh
TZ = UPro/lib/gcc-lib/powerpc-ibm-aix5.1.0.0/2.9-aix51-020209/aix64:/sbin:.