Variavel Perl no system

vitnick
(usa Ubuntu)

Enviado em 26/11/2012 - 13:40h

Galera, preciso fazer o seguinte:

my $ip = "127.0.0.1";
my $ping = system("ping $ip");
print $ping;

Como podem ver a variavel $ip ta dentro do system e assim nao ta rodando.
Só uma obs:
Sei que com o Net::Ping seria mais facil fazer isso, o problema é que com o Net::Ping necessita de root e eu quero executar como usuario normal.

Valeu

Edit: Já consegui. Nao tinha nenhum erro.

dvinciguerra
(usa Debian)

Enviado em 11/12/2012 - 20:43h

Também pode usar o exec [] e o qx{} dependendo do contexto e do que quer fazer...

EXEMPLO:
$ perl -e "print qx{ ping $ARGV[0] }" 127.0.0.1

$ perl -e "system "ping $ARGV[0]"' 127.0.0.1

$ perl -e "exec "ping $ARGV[0]"' 127.0.0.1

[]'s

vitnick
(usa Ubuntu)

Enviado em 13/12/2012 - 01:52h

Ahh beleza.. Valeu