Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2066 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  Question ki tue ;)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Question ki tue ;)

n°211743
stef_dober​mann
Personne n'est parfait ...
Posté le 10-09-2002 à 17:30:28  profilanswer
 

Je cherche un module, une fonction, une idée (pas trop stupide  :) ) capable de lister les disques dur et lecteur de CD-Rom d'un PC.
 
Le tout en Perl.
voir si possible récupérer des informations sur le CD (le support)
 
Merci de votre aide :)


---------------
Tout à commencé par un rêve...
mood
Publicité
Posté le 10-09-2002 à 17:30:28  profilanswer
 

n°211840
stef_dober​mann
Personne n'est parfait ...
Posté le 10-09-2002 à 20:05:08  profilanswer
 

Alors, calmé ? :lol:


---------------
Tout à commencé par un rêve...
n°212031
stef_dober​mann
Personne n'est parfait ...
Posté le 11-09-2002 à 10:35:21  profilanswer
 

Non mais sérieux, pourquoi à chaque fois que je pose une question j'ai presque jamais de retour :??:  
 
bon en Perl et Perl/TK alors ?
mais avec Perl/TK j'ai pas cherché !! ;)


---------------
Tout à commencé par un rêve...
n°212060
Aricoh
gentil mais fo po pousser
Posté le 11-09-2002 à 11:26:51  profilanswer
 

c'est bien, tu parles tout seul :lol:
 
non, sérieux, je vois po comment faire


---------------
j'suis l'Duc des 7 Enfers Éternels ...
n°212100
stef_dober​mann
Personne n'est parfait ...
Posté le 11-09-2002 à 12:48:22  profilanswer
 

je ne voi pas non plus c pour ca que je cherche ;)
 
il aurais un truc, mais ca serait faire le 'porc',
tester la création d'un fichier sur le disque !
mais avec le lecteur de CD, ca na marcherait pas !!
 
mais merci quand meme pour ton poste ;)


---------------
Tout à commencé par un rêve...
n°212608
Aricoh
gentil mais fo po pousser
Posté le 12-09-2002 à 09:11:08  profilanswer
 

Bah, j'y avais pensé mais j'ai pas osé le proposer, c'est vrai que ça fait un peu porc de faire des tests d'écriture sur chaque lecteur  :pt1cable:
 
Tu pourrais éventuellement essayer de copier un fichier sur chaque lecteur, sur une plage de [A-Z], mais je sais po si le message d'erreur récupéré dans $! est le même si tu essaie de créer un fichier sur un lecteur amovible (diskett, cdrom) et sur un lecteur non répertorié
 
attend je teste  :D  
 

Code :
  1. C:\>dir e:
  2. Le périphérique n'est pas prêt.
  3. C:\>dir z:
  4. Le chemin d'accès spécifié est introuvable.


 
lecteur CD sur E, j'ai rien sur Z
 
donc, tu pourrais éventuellement faire sacom :
 

Code :
  1. @Liste = ("A" ...... "Z" );
  2. foreach(@Liste) {
  3.     $toto = `dir $_:`;
  4.     if ($toto =~ /introuvable/) {
  5.         print "$toto n'est po un lecteur";
  6.     } elsif ($toto =~ /pas prêt/) {
  7.         print "$toto est un lecteur amovible";
  8.     } else {
  9.         print "$toto est un dédé";
  10.     }
  11. }


 
enfin, pas top comme code et c'est à étoffer/sécuriser mais bon ...
 


---------------
j'suis l'Duc des 7 Enfers Éternels ...
n°214053
stef_dober​mann
Personne n'est parfait ...
Posté le 13-09-2002 à 20:51:11  profilanswer
 

:lol:  :lol:  :lol:  
tu l'as essayé ton code ?
 
si tu l'ai pas fait, ca vaut le détour ;)
ne enleve le A, et teste à partir du "B"
 
tu vera c trop fort  :lol:  :lol:
 
test en commande MS DOS sous Windows 9X
ca fait la meme chose


Message édité par stef_dobermann le 13-09-2002 à 21:02:40

---------------
Tout à commencé par un rêve...
n°214056
stef_dober​mann
Personne n'est parfait ...
Posté le 13-09-2002 à 20:57:49  profilanswer
 

mais c'est une bonne idée, j'ai testé en utilisant la commande system, et ca fait la meme chose ;)
 
Le probleme, c'est que quand le lecteur n'existe pas, il demande une interaction avec l'utilisateur et ne va pas plus loin :(


Message édité par stef_dobermann le 13-09-2002 à 21:10:51

---------------
Tout à commencé par un rêve...
n°214270
alligator4​21
Posté le 14-09-2002 à 10:33:48  profilanswer
 

Pour répondre à ta question :
Sous windows je ne sais pas trop comment tu pourrais faire.
Mais sous linux, il te suffit de lire toutes les informations que tu veux dans le répertoire /proc. Eventuellement, lire les sorties de hdparm ou des utilitaires du genre.
 
a+

n°214298
kuroineko
je mamgerais bien un truc la..
Posté le 14-09-2002 à 13:11:33  profilanswer
 

Non mais sérieux, pourquoi à chaque fois que je pose une question j'ai presque jamais de retour :??:


 
pke tu poses des questions trop complexes peut etre?


---------------
[:kuroineko] Francois.P tel: (+33)617230820 http://www.ifrance.com/fpussault  fpussault@caramail.com
mood
Publicité
Posté le 14-09-2002 à 13:11:33  profilanswer
 

n°214379
stef_dober​mann
Personne n'est parfait ...
Posté le 14-09-2002 à 15:49:18  profilanswer
 

alligator421 a écrit a écrit :

Pour répondre à ta question :
Sous windows je ne sais pas trop comment tu pourrais faire.
Mais sous linux, il te suffit de lire toutes les informations que tu veux dans le répertoire /proc. Eventuellement, lire les sorties de hdparm ou des utilitaires du genre.
 
a+




 
merci, mais je suis sous Windows  :cry:


---------------
Tout à commencé par un rêve...
n°214887
Aricoh
gentil mais fo po pousser
Posté le 16-09-2002 à 08:44:54  profilanswer
 

stef_dobermann a écrit a écrit :

:lol:  :lol:  :lol:  
tu l'as essayé ton code ?



non car c'était juste un exemple et les syntaxes de mon exemple sont pas du Perl pur jus, genre ça :
 

Code :
  1. @Liste = ("A" ...... "Z" );


 
J'espère que t'as pas laissé ça sacom, car franchement je sais même po ce que ça fait avec Perl  :)


---------------
j'suis l'Duc des 7 Enfers Éternels ...
n°215126
stef_dober​mann
Personne n'est parfait ...
Posté le 16-09-2002 à 15:21:41  profilanswer
 

non g juste modifier @liste=("b","c","d",..);
 
et g testé comme ca
c trop drole ;)
quand il cherche sur le B:, windows delire
le pire c que ca
 
   $toto = `dir $_:`;  
 
ca marche, il fait bien le dir


---------------
Tout à commencé par un rêve...
n°215155
Aricoh
gentil mais fo po pousser
Posté le 16-09-2002 à 15:51:01  profilanswer
 

stef_dobermann a écrit a écrit :

non g juste modifier @liste=("b","c","d",..);
 
et g testé comme ca
c trop drole ;)
quand il cherche sur le B:, windows delire
le pire c que ca
 
   $toto = `dir $_:`;  
 
ca marche, il fait bien le dir



et sinon, y a rien dans %ENV sur les lecteurs pilotés par Windows ? J'pose juste une question en passant, paske ton truc là, j'vois po comment faire un code fiable et ça, ça m'énerve un max de po y arriver  [:cid]


---------------
j'suis l'Duc des 7 Enfers Éternels ...
n°215274
stef_dober​mann
Personne n'est parfait ...
Posté le 16-09-2002 à 19:24:28  profilanswer
 

mais tu n'est le seul  :gun:  
en ce qui concerne %env, g deja regardé dedans et j'ai pas trouvé
ce que je veux  :pt1cable:


---------------
Tout à commencé par un rêve...
n°216155
Aricoh
gentil mais fo po pousser
Posté le 18-09-2002 à 11:05:42  profilanswer
 

à question qui tue, réponse qui tue :
 
va faire un tour ici http://forum.hardware.fr/forum2.ph [...] h=&subcat=
 
Grosso merdo, tu te fais un petit source en C, que tu exécute sous Perl et valà, fastoche et super pratique, nan ?  :pt1cable:  :heink:  :(  ;)  :pt1cable:  :D


---------------
j'suis l'Duc des 7 Enfers Éternels ...
n°216646
stef_dober​mann
Personne n'est parfait ...
Posté le 18-09-2002 à 18:15:01  profilanswer
 

ok tu m'as calmé  :jap:  
merci


---------------
Tout à commencé par un rêve...
n°234535
pospos
Posté le 25-10-2002 à 14:50:16  profilanswer
 

si tu cherche toujours, ca pourrait t'aider:
 

Code :
  1. use Win32;
  2. $nextletter = Win32::GetNextAvailDrive( );
  3. print "The next available drive letter : $nextletter\n";


 
evidement cest pour windows

n°234550
stef_dober​mann
Personne n'est parfait ...
Posté le 25-10-2002 à 15:02:53  profilanswer
 

Code :
  1. use Win32;
  2.   $nextletter = Win32::GetNextAvailDrive( );
  3.   @alpha =('A'..'Z');
  4.   for (@alpha) {
  5.     if ( $_.':' ne $nextletter ) {
  6.  print "$_\n";
  7.    } else {last;}
  8.   }


 
et ca te liste toute les lettres que tu pourrais avoir  ;)


Message édité par stef_dobermann le 25-10-2002 à 15:05:10

---------------
Tout à commencé par un rêve...
n°234552
stef_dober​mann
Personne n'est parfait ...
Posté le 25-10-2002 à 15:03:28  profilanswer
 

mici  :jap:  
mais je l'avait deja trouvé  :ouch:


---------------
Tout à commencé par un rêve...
n°234555
Aricoh
gentil mais fo po pousser
Posté le 25-10-2002 à 15:04:24  profilanswer
 

stef_dobermann a écrit a écrit :

Code :
  1. use Win32;
  2.   $nextletter = Win32::GetNextAvailDrive( );
  3.   @alpha =('A'..'Z');
  4.   for (@alpha) {
  5.     if ( $_.':' ne $nextletter ) {
  6.  print "$_\n";
  7.    } else {last;}
  8.   }


 
et ca te liste toute les lettres que tu purrait avoir  ;)



bien ouèj  :)


---------------
j'suis l'Duc des 7 Enfers Éternels ...
mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  Question ki tue ;)

 

Sujets relatifs
question de newbie sur un convertisseur euros[php -objet] quelque question à reflexion
[C] et [C++] Question existentielle...question sur VBS
PHP question facile : comment on recupere l'ip ....Win9x: question con
Question aux pros du XSLT: des alternatives portables a <msxml:script>[TCL/Tk] Encore une petite question
Question con > LiensQuestion sur SDL et le son
Plus de sujets relatifs à : Question ki tue ;)


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR