problème avec une commande perlRésolu/Fermé

Question

Bonjour, je suis comme beaucoup en train de travailler sur un projet linux.

J'ai écrit une parti de script qui est :  

                #!/usr/bin/perl -w
            
         
                 print "Veuillez indiquer le disque.

";
                 chop ($disk = <STDIN>);
                 `fdisk /dev/$disk`;


Donc ça s'exécute mais pas comme voulu. L'ordinateur nous interroge. Disons quand rentrant par exemple "hda". Le script ne donne rien bien que le disk hda est bien présent.

Je fait ici la même manip que fdisk /dev/hda. Sauf que je laisse le chois à l'utilisateur de rentrer le disque.
Je ne vous demande pas de me faire mon travail car je fais moi même mais c'est juste un moyen de me dépatouiller. 

Voila merci.;)

lami20j · Answer

Salut, chop supprime le dernier caractère de la chaîne tandis que chomp supprime le caractère de saut de ligne mieux vaux utiliser chomp Les apostrophes simples `commande` , permettent de capturer le résultat d'une commande système Peut être qu'il faut utiliser la fonction system() dans ton cas Voici un exemple lami20j@debian:~$ echo salut salut lami20j@debian:~$ perl -e '$var = `echo salut`; print $var' salut lami20j@debian:~$ perl -e 'system("echo salut")' salut lami20j@debian:~$Il sera peut être bien de nous dire ce que tu veux faire puisque exécuter un fdisk avec un script perl, je ne vois pas ..... Pour le début de script tu peux, et c'est même conseiller d'utliser #!/usr/bin/perl use strict; use warnings; ce qui donne dans ton cas #!/usr/bin/perl use strict; use warnings; print "Veuillez indiquer le disque. "; chomp (my $disk = ); Exemple 1 (avec les apostrophes simples ou l'opérateur qx// )lami20j@debian:~$ cat fdisk.pl #!/usr/bin/perl use strict; use warnings; print "Veuillez indiquer le disque. "; chomp (my $disk = ); my $var = qx{/sbin/fdisk -l /dev/$disk}; #qx{commande} ext equivalent de `commande` print "$var"; __END__ lami20j@debian:~$ sudo perl fdisk.pl Veuillez indiquer le disque. hda Disk /dev/hda: 164.6 GB, 164696555520 bytes 255 heads, 63 sectors/track, 20023 cylinders Units = cylinders of 16065 * 512 = 8225280 bytes Device Boot Start End Blocks Id System /dev/hda1 * 1 1276 10249438+ 7 HPFS/NTFS /dev/hda2 1277 13837 100896232+ f W95 Ext'd (LBA) /dev/hda5 1277 8925 61440561 7 HPFS/NTFS /dev/hda6 8926 8974 393561 82 Linux swap / Solaris /dev/hda7 8975 10190 9767488+ 83 Linux /dev/hda8 10191 13837 29294496 83 Linux lami20j@debian:~$ Exemple 2 avec system (si tu veux seulement capturer utlise qx)lami20j@debian:~$ cat fdisk2.pl #!/usr/bin/perl use strict; use warnings; print "Veuillez indiquer le disque. "; chomp (my $disk = ); system("/sbin/fdisk", "-l", "/dev/$disk"); __END__ lami20j@debian:~$ sudo perl fdisk2.pl Veuillez indiquer le disque. hda Disk /dev/hda: 164.6 GB, 164696555520 bytes 255 heads, 63 sectors/track, 20023 cylinders Units = cylinders of 16065 * 512 = 8225280 bytes Device Boot Start End Blocks Id System /dev/hda1 * 1 1276 10249438+ 7 HPFS/NTFS /dev/hda2 1277 13837 100896232+ f W95 Ext'd (LBA) /dev/hda5 1277 8925 61440561 7 HPFS/NTFS /dev/hda6 8926 8974 393561 82 Linux swap / Solaris /dev/hda7 8975 10190 9767488+ 83 Linux /dev/hda8 10191 13837 29294496 83 Linux lami20j@debian:~$

lami20j · Answer

Dans ton projet, tu dois créer un menu qui ensuite permettra à ton script d'utiliser des utilitaires système?
Peut être que si tu diras en quoi consiste ton projet, ça sera plus facile pour t'aider.

steph · Answer

merci pour toutes vos réponse mais je viens de trouver;)
il suffit d'applique system " " et d'y insérer la commande entre les guillemet.


#!/usr/bin/perl -w
use strict; use warnings;

print "Veuillez indiquer le disque sur lequel vous souhaitez appliquer l'utilitaire de partitionnement.

";
chomp (my $disk = <STDIN>);
system "fdisk /dev/$disk"; 

merci et si j'ai pu aider quelqu'un ;);)

lami20j · Answer

Re,

mais je viens de trouver;) 
t'avais la solution sous ton nez Peut être qu'il faut utiliser la fonction system() dans ton cas

Problème avec une commande perl

4 réponses

Discussions similaires

Newsletters