| Author |
Message |
priit
Vana Pingviin
Age: 42
Joined: 04 Aug 2005
Posts: 521
Location: Tartu
Distributsioon: CentOS / OS X
|
|
| pigem oli mõeldud seda, et muudad vastavat klaverilaotuse faili, et see püstkriips sul kuskil figureeriks, kasvõi x-i taga.
|
|
|
|
|
|
|
  |
imre
Vana Pingviin
Joined: 16 Aug 2005
Posts: 2652
Location: Saku kant
Distributsioon: Ubuntu
|
|
|
_________________
Enne teema püstitamist kasutage OTSINGUT
Küsi targalt: Infot siit!
Kui aru ei saa, siis küsi.
|
|
|
|
spott
Admin
Age: 45
Joined: 04 Jun 2005
Posts: 8870
Distributsioon: Ubuntu
|
|
mul seda klahvi pole, kuid ma sain | tänu Hardi õpetusele.
Seega selle püstkriipsu teema võib lõpetada 
Skriptid edasi
|
|
|
|
_________________
Tellige endale sünnipäevaks, sõbrapäevaks või muuks tähtpäevaks kingitus: Kingitused internetist - NetiKink.eu
|
|
|
 |
imre
Vana Pingviin
Joined: 16 Aug 2005
Posts: 2652
Location: Saku kant
Distributsioon: Ubuntu
|
|
No kes oskab kosta või miskit kuskile pista:
dump faili asji ilusi läheb, aga telneti "output" täiesti null!
[code]
#!/usr/bin/perl
use Net::Telnet ();
#$host on ruuteri IP aadress
my $host = "192.168.1.254";
$t = new Net::Telnet (Timeout => 1,Prompt => '/$ $/i', dump_log => "/home/imre/xxxxx.html");
$t->open($host);
$t->waitfor('/: $/i');
$t->print("Administrator");
$t->waitfor('/ : $/i');
$t->print("");
#ootab => l�puga prompti, siis saadab sinna2su: ip iflist
$t->waitfor('/=>$/i');
@lines = $t->print("ip iflist");
$t->waitfor('/=>$/i');
$t->print("exit");
[/php]
Keegi kes Perli scriptiga rohkem kodus võiks natukene juhtnööre anda.
|
|
|
|
_________________
Enne teema püstitamist kasutage OTSINGUT
Küsi targalt: Infot siit!
Kui aru ei saa, siis küsi.
|
|
|
|
wk
Vana Pingviin
Joined: 24 Oct 2007
Posts: 1133
Location: Tallinn, vahel Vastseliina vald
Distributsioon: Debian, Kubuntu
|
|
| Quote: | | Prompt => '/$ $/i', |
See võiks olla Prompt => '/\$ $/i',
Üldiselt, ma jätaks kõik võimaliku perli meetodite hooleks ja alles siis, kui need miskil põhjusel ei toimi, asuksin print ja waitfor asjadega mängima. Sama skript mooduli meetoditega näeks välja umbes selline (ip iflist-i asemel ip link, kuna minu ip ei tea iflistist midagi)
| Code: | | #!/usr/bin/perl
use Net::Telnet ();
#$host on ruuteri IP aadress
my $host = "192.168.1.254";
my $user = "Administrator";
my $pass = "";
$t = new Net::Telnet (Timeout =>3,Prompt => '/\$ $/i', dump_log => "/home/imre/xxxxx.html");
$t->open($host);
$t->login($user, $pass);
@lines = $t->cmd("ip link");
$t->print("exit");
print "@lines\n"; |
Põhiline probleem oli mu arust regulaaravaldiste erimärkidega, $ tähendab realõppu ja seepärast tuleb see kindlasti paotada \-ga, ka > võis olla erimärgi tähenduses, see tuleks siis ka paotada. Kui ikka ei toimi, võiksid logifaili ka näidata.
|
|
|
|
_________________
Kõike hääd,
WK
|
|
|
|
imre
Vana Pingviin
Joined: 16 Aug 2005
Posts: 2652
Location: Saku kant
Distributsioon: Ubuntu
|
|
wk, prompt ei ole takistuseks.
dump_log faili läheb väljund.
Muide, "ip link" ei ole asjakohane käsk kuna tegemist on ruuteriga mida vaja perliga torkida natukene
Samuti see rida:
$t->login($user, $pass); (perl peab enne vastava prompti ära otoama, siis tegutseb edasi)
Probleem pole niivõrd sisselogimisega kuivõrd ainult väljundiga.
s.t minu näidatud koodijupp teeb korrektselt järgnevat:
ühendub ruuteriga, logib sisse, sisestab sinna käsu ja logib välja.
Edasine jutt läheb dump faili siis
Väljund mille saab ruuterisse telnettides ilma perlita oleks järgnev:
| Code: | | Interface Group MTU RX TX Admin Oper
0 loop. . . . . . . . . . . . . . local 65535 2282076 1711355 UP [UP]
1 Internet. . . . . . . . . . . . wan 1492 1460005316 140571108 UP UP
3 LocalNetwork. . . . . . . . . . lan 1500 142911564 1460339555 UP [UP] |
mille ta dump faili paiskab on nähtav SIIT LINGIST
Speedtouch 510 puhul näiteks selline scripti jupp:
Nähtav siis SIIT
|
|
|
|
_________________
Enne teema püstitamist kasutage OTSINGUT
Küsi targalt: Infot siit!
Kui aru ei saa, siis küsi.
|
|
|
|
wk
Vana Pingviin
Joined: 24 Oct 2007
Posts: 1133
Location: Tallinn, vahel Vastseliina vald
Distributsioon: Debian, Kubuntu
|
|
| Quote: | | mille ta dump faili paiskab on nähtav SIIT LINGIST |
Sääl on olemas see sama väljund, mis Sa saad telnettides. Kas Sulle ei meeldi dumpi vorm? Dump on ju nagunii ainult debugimiseks, vajaliku väljundi saad ikka muutujast.
Ma proovisin Sinu skriptiga teise masinasse telnettida, sääl käsku anda ja käsu väljund muutujale omistada. Ei toiminud hästi. Modifitseerisin sellisele kujule, nagu eelmises postituses ja kõik hakkas ilusti toimima. Kas Sa minu modifitseeritud skripti proovisid? Ei toimi? Igatahes sääl Sinu Speedtouch 510 lingil olev skript on tehtud täpselt samade meetoditega nagu minu oma...
|
|
|
|
_________________
Kõike hääd,
WK
|
|
|
|
imre
Vana Pingviin
Joined: 16 Aug 2005
Posts: 2652
Location: Saku kant
Distributsioon: Ubuntu
|
|
Sinu koodijuppi proovisin samuti, aga ei aidanud.
| Code: | | timed-out waiting for command prompt at test1 line 9 |
Ehk siis see rida:
| Code: | | $t->login($user, $pass); |
|
|
|
|
_________________
Enne teema püstitamist kasutage OTSINGUT
Küsi targalt: Infot siit!
Kui aru ei saa, siis küsi.
|
|
|
|
wk
Vana Pingviin
Joined: 24 Oct 2007
Posts: 1133
Location: Tallinn, vahel Vastseliina vald
Distributsioon: Debian, Kubuntu
|
|
| Aga defineeri objekti loomisel oma Prompt selliselt, nagu ta lõpuks on ('/=>/'). Selline prompt on ebastandardne ja perli telneti moodul ei saa vast muidu pihta, millal on saabunud vaikus.
|
|
|
|
_________________
Kõike hääd,
WK
|
|
|
|
imre
Vana Pingviin
Joined: 16 Aug 2005
Posts: 2652
Location: Saku kant
Distributsioon: Ubuntu
|
|
wk, päris täpselt ma sind ei mõistnud ja seega otsest abi sinust ei olnud, aga tänud siiski üritamise eest
Töötav kood oleks siis järgnev:
| Code: | | #!/usr/bin/perl
use Net::Telnet ();
#$host on ruuteri IP aadress
my $host = "192.168.1.254";
$t = new Net::Telnet (Timeout => 1, Prompt => '/\$ $/i' , output_log => "/home/imre/xxxxx.html");
$t->open($host);
$t->waitfor('/: $/i');
$t->print("Administrator");
$t->waitfor('/ : $/i');
$t->print("");
$t->waitfor('/>$/i');
@lines = $t->print("ip iflist");
($output) = $t->waitfor('/=>$/i');
print $output;
$t->print("exit"); |
Teeb oma töö ära - edasine osa peaks olema siis perli ja html sõpruse sobitamine, et asjale kena välimus anda
|
|
|
|
_________________
Enne teema püstitamist kasutage OTSINGUT
Küsi targalt: Infot siit!
Kui aru ei saa, siis küsi.
|
|
|
|
|
|
