Perl : appel commande bash et argument

Bonjour,

J'utilise le module SipSak qui vient avec smokeping afin d'essayer de monitorer ma gateway SIP.

Voici le script perl avec lequel j'ai un problème :

Code:

---

1 2 3 4 5 6

$host = $vars->{user}.'@'.$host if $vars->{user}; $host = $host . ':' . $vars->{port} if $vars->{port}; my @extra_opts = (); @extra_opts = split /\s/, $vars->{params} if $vars->{params}; open (my $sak,'-|',$self->{properties}{binary},'-vv','-A',$pingcount,'-s','sip:'.$host,@extra_opts)

---

Après quelques tests et debug, la variable host est égale à : "nobody@hostip:5060"

Si je compare à ce qui est lancé en bash, on obtient :

Code:

---

/usr/local/bin/sipsak -vv -A 20 -s sip nobody hostip 5060

---

Le problème est que le @ et le : inclus dans la variable "$host" ne sont pas passés en argument, ils sont tout bonnement supprimés.

J'ai également essayé d'utiliser les quotes inversées ` ` pour lancer le script bash, même problème..

Je suis sous Centos 6.3 // perl5.10.1 // Bash 4.1.2

Merci d'avance.

Nicolas

Je ne connais rien aux environnements dont tu parles, mais juste une idée comme cela: essaie de mettre un backslash avant l'arobase et le double point.

Autre truc à essayer: des guillemets autour de $host. Voire même des apostrophes avec un truc comme:

Code:

---

... 'sip:'.'.$host.',@extra_opts

---

As-tu aussi essayé ceci :

Code:

---

1 2 3

my $cmd = join " ", $self->{properties}{binary},'-vv','-A',$pingcount,'-s','sip:'.$host,@extra_opts; print "Starting $cmd\n"; open (my $sak,'-|',$cmd);

---