3. leht 3-st
Postitatud: 12.01.2007, 20:54
Postitas priit
pigem oli mõeldud seda, et muudad vastavat klaverilaotuse faili, et see püstkriips sul kuskil figureeriks, kasvõi x-i taga.
Postitatud: 12.01.2007, 21:02
Postitas imre
Postitatud: 12.01.2007, 21:37
Postitas spott
mul seda klahvi pole, kuid ma sain | tänu Hardi õpetusele.
Seega selle püstkriipsu teema võib lõpetada
Skriptid edasi
Postitatud: 17.07.2008, 22:27
Postitas imre
No kes oskab kosta või miskit kuskile pista:
dump faili asji ilusi läheb, aga telneti "output" täiesti null!
Kood: Vali kõik
#!/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.
Postitatud: 18.07.2008, 12:34
Postitas wk
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)
Kood: Vali kõik
#!/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.
Postitatud: 18.07.2008, 14:28
Postitas imre
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:
Kood: Vali kõik
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
Postitatud: 18.07.2008, 22:56
Postitas wk
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...
Postitatud: 19.07.2008, 11:19
Postitas imre
Sinu koodijuppi proovisin samuti, aga ei aidanud.
Kood: Vali kõik
timed-out waiting for command prompt at test1 line 9
Ehk siis see rida:
Postitatud: 19.07.2008, 17:48
Postitas wk
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.
Postitatud: 20.07.2008, 16:35
Postitas imre
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:
Kood: Vali kõik
#!/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