bash => Perl : passer des caractères spéciaux

Bonsoir à tous,

Je suis en train de transformer un script "bash" en script "Perl".
L'ancien script lance des séries de commandes très particulières ( caractères spéciaux), qui me pose des soucis.
J'ai réussi à adapter ma première commande :

Code:

---

/usr/local/bin/svdrpsend.pl mesg "Lancement..."> $OTV_LOG

---

comme ceci (c'est OK)

Code:

---

print `/usr/local/bin/svdrpsend.pl mesg "Lancement..."> $OTV_LOG`;

---

En revanche, je n'arrive pas à transformer la seconde (difficulté à traiter les nombreux caractères spéciaux):

Code:

---

SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan | grep "250 " | cut -d" " -f2`

---

Pourriez-vous m'aider ?

D'avance merci.

Essaye sa :

Code:

---

1 2	SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2`

---

Certain caractères spéciaux nécessitent un "\" avant pour qu'ils apparaissent corectement dans la console ou autre.
Car ils peuvent être utilisé sous perl.
Exemple :

Code:

---

1 2 3 4

@ définit un tableau $ définit une variable % définit un tableau de hachage

---

Merci, j'ai essayé en vain :

Code:

---

system "$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2`";

---

L'erreur est :

Code:

---

1 2 3 4 5 6 7 8 9

[root@PCTEST otvepg2]# ./otvepg2vdr.pl Number found where operator expected at ./otvepg2vdr.pl line 41, near ""$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250" (Missing operator before 250?) String found where operator expected at ./otvepg2vdr.pl line 41, near "250 " \| cut -d"" (Missing operator before " \| cut -d"?) String found where operator expected at ./otvepg2vdr.pl line 41, near "" \| cut -d" " -f2`"" (Missing operator before " -f2`"?) syntax error at ./otvepg2vdr.pl line 41, near ""$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250" Execution of ./otvepg2vdr.pl aborted due to compilation errors.

---

Et ceci :

Code:

---

print ` "$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2` `;

---

Cela ne passe pas :

Code:

---

1 2 3 4 5 6 7 8 9 10

[root@PCTEST otvepg2]# ./otvepg2vdr.pl Number found where operator expected at ./otvepg2vdr.pl line 41, near ""$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250" (Missing operator before 250?) String found where operator expected at ./otvepg2vdr.pl line 41, near "250 " \| cut -d"" (Missing operator before " \| cut -d"?) String found where operator expected at ./otvepg2vdr.pl line 41, near "" \| cut -d" " -f2`"" (Missing operator before " -f2`"?) syntax error at ./otvepg2vdr.pl line 41, near ""$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250" Execution of ./otvepg2vdr.pl aborted due to compilation errors. [root@PCTEST otvepg2]#

---

Avez-vous une idée ?

je comprend pas ta commande :

Code:

---

1 2	system "$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2`";

---

$SAVED_CHANNEL doit récupérer le résultat de la commande ?
ou c'est une variable qui doit être éxécutée ?

Je te prend les 2 cas :

Code:

---

1 2	system ("$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep \"250 \" \| cut -d\" \" -f2`");

---

Code:

---

1 2	@SAVED_CHANNEL =`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2`;

---

Désolé, j'aurais du être plus précis. Je veux mémoriser le résultat d'une commande? (Je dialogue avec une application DVB, et
récupère le n° du canal actif. Exemple 1 pour TF1, 2 pour France 2 ...)

La syntaxe est bien celle-ci

Code:

---

1 2 3 4

system ("$SAVED_CHANNEL=`/usr/local/bin/svdrpsend.pl chan \| grep \"250 \" \| cut -d\" \" -f2`"); print "valeur: $SAVED_CHANNEL\n"; exit;

---

Cela fonctionne presque !

Code:

---

1 2 3 4

[root@PCTEST otvepg2]# ./otvepg2vdr.pl sh: =18: command not found valeur: [root@PCTEST otvepg2]#

---

Le canal actif est bien 18, mais la valeur n'est pas enregistrée dans $SAVED_CHANNEL.
Je ne vois pas pourquoi la console me répond "sh:=18:"

Tu n'as pas essayé le 2ème cas :

Code:

---

1 2	@SAVED_CHANNEL =`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2`;

---

Citation:

---

Envoyé par Hide

Tu n'as pas essayé le 2ème cas :

Code:

---

1 2	@SAVED_CHANNEL =`/usr/local/bin/svdrpsend.pl chan \| grep "250 " \| cut -d" " -f2`;

---

---

Super ! Cela marche merci beaucoup.
Néanmoins, un truc m'échappe : pourquoi doit-on utiliser @VALEUR et non pas $VALEUR ?

Merci.

Si tu es sur que ce que va te renvoyez la commande est sur une seul ligne alors tu peux utiliser une variable $ mais si tu n'es pas sur , il est plus intéressant d'utiliser un tableau @

Citation:

---

Envoyé par Hide

Si tu es sur que ce que va te renvoyez la commande est sur une seul ligne alors tu peux utiliser une variable $ mais si tu n'es pas sur , il est plus intéressant d'utiliser un tableau @

---

C'est noté.
Merci encore.