Autor |
Sõnum |
priit
Vana Pingviin
Vanus: 40
Liitunud: 04.08.2005
Postitused: 521
Asukoht: Tartu
Distributsioon: CentOS / OS X
|
postitatud: 12.01.2007, 20:54 postituse pealkiri:
(teema puudub)
|
|
|
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
Liitunud: 16.08.2005
Postitused: 2648
Asukoht: Saku kant
Distributsioon: Ubuntu
|
postitatud: 12.01.2007, 21:02 postituse pealkiri:
(teema puudub)
|
|
|
_________________ Enne teema püstitamist kasutage OTSINGUT
Küsi targalt: Infot siit!
Kui aru ei saa, siis küsi.
|
|
|
|
spott
Admin
Vanus: 43
Liitunud: 04.06.2005
Postitused: 8857
Distributsioon: Ubuntu
|
postitatud: 12.01.2007, 21:37 postituse pealkiri:
(teema puudub)
|
|
|
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
Liitunud: 16.08.2005
Postitused: 2648
Asukoht: Saku kant
Distributsioon: Ubuntu
|
postitatud: 17.07.2008, 21:27 postituse pealkiri:
(teema puudub)
|
|
|
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
Liitunud: 24.10.2007
Postitused: 1133
Asukoht: Tallinn, vahel Vastseliina vald
Distributsioon: Debian, Kubuntu
|
postitatud: 18.07.2008, 11:34 postituse pealkiri:
(teema puudub)
|
|
|
Tsitaat: < Vali > | 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 > < Laienda > | #!/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
Liitunud: 16.08.2005
Postitused: 2648
Asukoht: Saku kant
Distributsioon: Ubuntu
|
|
|
|
wk
Vana Pingviin
Liitunud: 24.10.2007
Postitused: 1133
Asukoht: Tallinn, vahel Vastseliina vald
Distributsioon: Debian, Kubuntu
|
|
|
|
imre
Vana Pingviin
Liitunud: 16.08.2005
Postitused: 2648
Asukoht: Saku kant
Distributsioon: Ubuntu
|
|
|
|
wk
Vana Pingviin
Liitunud: 24.10.2007
Postitused: 1133
Asukoht: Tallinn, vahel Vastseliina vald
Distributsioon: Debian, Kubuntu
|
postitatud: 19.07.2008, 16:48 postituse pealkiri:
(teema puudub)
|
|
|
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
Liitunud: 16.08.2005
Postitused: 2648
Asukoht: Saku kant
Distributsioon: Ubuntu
|
|
|
|
|