perl/shell Résolu/Fermé

Question

Bonjour,
J'ai un problème qui vous emblera surement basique mais je n'y arrive pas pour autant (je débute).
En fait j'ai commencé un script perl dont voici le code.

my $mavar
`cp ./bob_test  bob_test_$mavar.xml` // commande system.C'est ici que le problème survient

Mon problème est le suivant: lorsque je veus faire cette manipulation on m'affiche un message d'erreur.
C'est le .xml que j'essaie de rajouter derriere ma variable qui est refusé...
Avez vous une idée pour palier à ce problème? Ce ".xml" est très important.

Merci d'avance.

gigaga · Answer

Qu'est ce que : "./bob_test"? un fichier? un répertoire?
que vaut "$mavar"?
Si l'exécution est sous windows, tu ne peux pas utiliser la commande "cp" qui n'est utilisable que dans un environnement Unix.

lami20j · Answer

Salut,

Tout d'abord si tu fait du perl `` c'est pour capturer le résultat d'une commande
Vu que tu fais un cp je ne pense pas que tu veux capturer quelque chose. Donc il faut utiliser la fonction system()

system("cp", "./bob_test bob_test_${mavar}.xml");ou$mavar .= ".xml";
system("cp", "./bob_test bob_test_$mavar");

bennyben · Answer

Bonjour,

Le même problème persiste, on m'affiche le message d'erreur "sh: .xml not found"

Je ne pige pas...
Merci d'avance

lami20j · Answer

Re,

Affiche ton code.

bennyben · Answer

Bonjour, Voici mon code print("entrer l'@ ip "); my $ip = ; print("$ip"); `cp ./Modele.xml ./test_${ip}.xml`; //c'est ici que le message d'erreur apparait et ne met pas le .xml comme extension du fichier. (pour moi le porblème se pose à cause de la variable suivie du point mais sa n'est que mon avis). print ("Nom du site? "); my $name= ; `sed 's/NOM_DU_SITE/$name/g' test_455.xml > Erreur.xml`; //il ya une erreur ici aussi. Quand je veus remplacer NOM_DU_SITE par ma variable, Cela echoue alors que si je met directement la valeur de cette variable, sa fonctionne. Si vous avez des idées sur ces 2 points... Merci encore.

lami20j · Answer

Re,

J'ai fait une erreur dans la fonction system().
Je t'ai dit qu'il ne faut pas utiliser les ``

Voici un exemple avec le résultat

lami20j@debian:~/trash$ cat ccm2_systemcp.pl
#!/usr/bin/perl
use strict;use warnings;

print("entrer l'ip : ");
chomp (my $ip = <STDIN>);
print "$ip
";

system("cp", "./Modele.xml", "test_${ip}.xml");
__END__Avant l'exécution de scriptlami20j@debian:~/trash$ ls -l Modele.xml
-rw-r--r-- 1 lami20j lami20j 0 jan 27 16:46 Modele.xml
lami20j@debian:~/trash$ ls -l test_192.168.1.1.xml
ls: ne peut accéder test_192.168.1.1.xml: Aucun fichier ou répertoire de ce typeExécution scriptlami20j@debian:~/trash$ perl ccm2_systemcp.pl
entrer l'ip : 192.168.1.1
192.168.1.1Après exécutionlami20j@debian:~/trash$ ls -l Modele.xml
-rw-r--r-- 1 lami20j lami20j 0 jan 27 16:46 Modele.xml
lami20j@debian:~/trash$ ls -l test_192.168.1.1.xml
-rw-r--r-- 1 lami20j lami20j 0 jan 27 16:48 test_192.168.1.1.xml

bennyben · Answer

Re,
Super ça marche pour l'extension .xml !
D'abord, merci beaucoup.

Aurais tu une idée pour mon autre problème?
Je vais tenter de la même façon le system()... Mais je ne suis pas sur vu qu'il ya a cette fois le resultat est renvoyé vers un autre fichier.

Voici la ligne posant problème.
Je te rappel l'erreur: La commande echoue lorsque je met ma variable $name alors que si je met une chaine de caractère directement dans ma commande sa fonctionne.


ex:
$name=bob;
`sed 's/NOM_DU_SITE/$name/g' test_455.xml > Erreur.xml`; 

Ne marche pas

alors que 

`sed 's/NOM_DU_SITE/bob/g' test_455.xml > Erreur.xml`; 

marche

Merci encore pour ta reponse.
Si tu as une idée pour ce problème...

lami20j · Answer

Re,

Tu fait toujours en perl?
Je parle de la commande avec sed

bennyben · Answer

En fait c'est bon sa marche.
Avec le chomp sa marche beaucoup mieux!

Merci encore à toi.

Bonne soirée.

Perl/shell

9 réponses

Discussions similaires