retrouver le nom du lecteur CD-ROM

**Leishmaniose** · 19/01/2006, 18h15

Salut,

Je me suis débrouillé pour trouver un "standalone server" qui permet de mettre des sites web dynamiques sur CD et qui marche sous windows. Bref je dispose d'un site "dynamisé" par des cgi écrit en Perl dont quelques uns ne font qu'interfacer d'autres programmes du type "command line option" qui ne traitent que des fichiers. Ainsi, sachant que le CD est un Read Only, je me vois obligé de créer des fichiers sur l'ordinateur de l'utilisateur avant l'utilisation du site -un genre d'installation quoi...- Pour ça je me propose d'utiliser :

Code :

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

1
2
use File::Copy;
copy($Origine,$Destination);

pour copier des fichier du CD au Disque...
Le problème cé que mon script copy.pl demande des chemins d'accès. Pour ce qui est du disque dur (déstination) il suffit d'utiliser un chemin dans ce genre :

Code :

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

$Destinantion = "\\rep1\\rep2\\fich1";

sans spécifier le nom du disque (C: ou autre) mais en ce qui concerne le chemin de l'origine (CD ROM) je ne trouve pas comment faire ?

Est ce que quelqu'un peut m'aider à trouver le nom du lecteur CDROM en Perl

:

Merci d'avance.

**Hide** · 19/01/2006, 18h21

Si ton script est lancé à partir du CD-Rom tu peux utiliser le chemin relatif.

**Leishmaniose** · 19/01/2006, 18h50

En effet, mon script est lancé à partir du CD ROM mais je ne vois pas exactement ce que vous voulez dire par chemin relatif ??

**Hide** · 19/01/2006, 19h22

Hmmm .

http://www.crdp-strasbourg.fr/freeSo...et/ai24.htm#03

C'est mieux qu'un long discours 8)

**Leishmaniose** · 19/01/2006, 19h32

Je crois que je vois ce que vous voulez dire ; du moment que mon script va s'exécuter à partir du CD ROM le path sera sur le CDROM est je peux alors utiliser les chemins relatifs pour désigner les fichiers présents sur le CD ROM mais à ce moment là j'aurais probablement un problème du coté de ma déstination... J'explique. Vu que je test sur le disque dur et que mon script n'est pas encore sur CD alors mon

Code :

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

$Destinantion = "\\rep1\\rep2\\fich1";

(qui est relatif) marche et pas mon $origine. Ainsi, je suppose, dès que je passe au CD ROM j'aurais un problème dans le sens inverse...

Ceci vous parait - il cohérent ?

**Hide** · 19/01/2006, 20h51

Se serait à vérifié mais je pense que oui ...

**Leishmaniose** · 23/01/2006, 19h17

Salut,

Mon problème reste entier n'empêche que l'objectif a un peu changé ; je ne cherche plus le nom du lecteur CD mais celui du disque dur.
Je sais que

Code :

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

%systemroot%

vous place sous le repertoire système e.g. C:\WINNT>. Alors, je me demande s'il existe un truc semblable rien que pour désigner d'une manière universelle le disque dur ?

Merci.

P.S.
Je sais qu'à ce stade, ma question ne concerne plus la rubrique Perl de ce forum mais je compte sur votre tolérance...

**Hide** · 24/01/2006, 09h23

Code :

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

1
2
 
%systemroot%\..\

Sa te ramene sur la partition ou est stockée l'OS Windows

**Leishmaniose** · 24/01/2006, 10h22

Hi,

Je ne saurai te remercier pour cette aide précieuse...

Merci beaucoups.

**Hide** · 24/01/2006, 11h10

Attention je pense pas que %systemroot% marche sous un autre OS que Windows.

**Leishmaniose** · 24/01/2006, 19h09

Au fait non, %systemroot% marche très bien sous windows et je croit même qu'elle lui spécifique (chui pas sûr) mais je pense que j'ai utilisé le tag [Résolu] un peu trop tôt car lorsque j'utlise un chemin avec %systemroot% dans un code perl, il est pris à la lettre et non pas comme un emplacement Windows <=> Problème... Enorme problème