Récuperer le nom du système d'exploitation

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:

---

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:

---

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.

Code:

---

print $^O;

---

Bonjour,

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

Code:

---

1 2 3 4

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

---

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

Code:

---

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:

---

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:.

---

Citation:

---

Envoyé par djibril

Code:

---

print $^O;

---

---

Ah oui, aussi :yaisse2:

:D

Code:

---

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

---

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 ! 8-)
Je parle de File::Spec, par exemple :

Code:

---

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

---

--
Jedaï

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

Merci de vos réponse ;)

Je n'avais pas chercher si une fonction faisait déja le boulot, je vais regarder de plus près les modules présent dans Perl.

Encore merci de vos réponses si rapide.