perl zmienna przekazana

Thread View: pl.comp.os.linux.programowanie

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by ziolko Wed, 13 Apr 2011 18:34

#72185

Author: ziolko
Date: Wed, 13 Apr 2011 18:34

31 lines
1602 bytes

Witam.

potrzebuje dopisać mały skrypt w perlu

Na podstawie netu ( ja sie nie znam na perlu) stworzyłem cos takiego:

-
#!/usr/bin/perl
  use warnings;
  use Net::Telnet;

  $telnet = new Net::Telnet ( Timeout=>40,
                             Errmode=>'die');

  print "$ip_\n";
  $telnet->open($ip_);
  $telnet->waitfor('/Login:/i');
  $telnet->print($login);
  $telnet->waitfor('/Password:/i');
  $telnet->print($haslo);
  $output = $telnet->waitfor('/# /i');
  print $telnet->cmd('show port 1');
  print $telnet->cmd('show port 2');
  sleep 1;
# dotad  jest dobrze ....

#mam problem jak przekazać wartosc portu do telnetu??

  for ($n = 3; $n<= 48; $n++){
  print $telnet->cmd('show port $n \n');
  }

Re: perl zmienna przekazana

#72186

Author: Michoo
Date: Wed, 13 Apr 2011 21:18

14 lines
1135 bytes

W dniu 13.04.2011 20:34, ziolko pisze:
> Witam.
>
> potrzebuje dopisać mały skrypt w perlu
ja bym zaczął od tutoriala perla, albo chociaż edytora, który podświetla 
składnię.

> print $telnet->cmd('show port $n \n');
print $telnet->cmd("show port $n \n");


-- 
Pozdrawiam
Michoo

Re: perl zmienna przekazana

#72187

Author: Ziolko
Date: Thu, 14 Apr 2011 09:23

38 lines
1758 bytes

W dniu 2011-04-13 23:18, Michoo pisze:
> W dniu 13.04.2011 20:34, ziolko pisze:
>> Witam.
>>
>> potrzebuje dopisać mały skrypt w perlu
> ja bym zaczął od tutoriala perla, albo chociaż edytora, który podświetla
> składnię.
Masz pewnie racje, ale potrzebuję jako gość przez 3 miesiące pobierać 
informacje, potem będę miał tam swój serwer.
Na użyczonym sprzęcie jest tylko bash i perl.

Skorzystałem z przykładów w necie.

>
>> print $telnet->cmd('show port $n \n');
> print $telnet->cmd("show port $n \n");
>

hmm tak robiłem, ale :

for ($n = 3; $n<= 48; $n++){
  print $telnet->cmd("show port $n \n");
  }

Nic mi nie zwracało. ;(

Dopiero po Twojej odpowiedzi sprawdziłem ręcznie
i na portach 3-48 nic nie było ;-(

Mea culpa.

Dziękuję za podpowiedź.

Na innym urządzeniu zwraca to co chcę.


-- 
Artur

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads