template skripta - PERL @ Slo-Tech

Skoči na vsebino
Navigacija

Zadnje novice

Zadnji članki

☰

Mali oglasi Članki

Forum » Programiranje »
template skripta - PERL

template skripta - PERL

Goldee :: 27. feb 2009, 11:17

Potreboval bi eno skriptico (template), ki bi emulirala komande in jih potrdila z entrom - mi lahko kdo to spiše na hitro v PERL-u (je baje najboljši za take stvari)? Gre pa za Windows XP OS. PERL že imam nameščen na sistemu.

Nekako takole:

telnet < host > *enter
password < password > *enter
< ukaz 1 > *enter
< ukaz 2 > *enter
< ukaz 3 > *enter
...
exit *enter
logout *enter

konec skripte + zaprtje CMD okna.

Drugače pa prosim za kak dober tutorial za PERL za preproste skripte?
Hvala vnaprej!

And Now for Something Completely Different...

-two things I like about UK -Monty Python & Pink Floyd-

preem :: 28. feb 2009, 08:11

perl še živi? :p

na winsih ne vem - na linuxu bi bil bash primernejši. kaj bi sploh rad dosegel? povezavo na telent ?

Goldee :: 2. mar 2009, 12:27

Obvezno windows (xp).
Potrebujem pa tako skripto, da bi si olajšal par rutinskih opravil, oziroma konfiguracij routerjev in stikal. Nisem pa ravno domač v "programiranju", zatorej bi rad en template, da bi ga potem lahko jaz po želji spreminjal (pač dodajal tiste komande, ki jih potrebujem).

And Now for Something Completely Different...

-two things I like about UK -Monty Python & Pink Floyd-

TEDY :: 2. mar 2009, 20:00

Kaka druga skripta pride v poštev?
AutoIt, itd

Goldee :: 2. mar 2009, 22:50

Ma u končni fazi mi ni važno v kerem jeziku je, samo da dela, pa da je efektivna.

And Now for Something Completely Different...

-two things I like about UK -Monty Python & Pink Floyd-

TEDY :: 3. mar 2009, 16:30

#include <Constants.au3>
$ourOutput = ""
$host = "127.0.0.1"
$CMD = Run("cmd.exe", @WindowsDir, @SW_SHOW, $STDIN_CHILD + $STDOUT_CHILD)
StdinWrite($CMD, "telnet "&$host&@CRLF)
StdinWrite($CMD, "password 1234"&@CRLF)
StdinWrite($CMD, "ukaz 1234"&@CRLF)
StdinWrite($CMD, "logout"&@CRLF)
StdinWrite($CMD, "exit"&@CRLF)
StdinWrite($CMD)
Sleep(20)
While 1
	$ourOutput &= StdoutRead($CMD)
    If @error Then ExitLoop
WEnd
;ConsoleWrite("+>Debug: " & $ourOutput & @CRLF)

nekaj takega mogoče?

Goldee :: 3. mar 2009, 21:17

Če tole poganja komande in emulira pritisk na gumb enter, potem super. Je to PERL?

And Now for Something Completely Different...

-two things I like about UK -Monty Python & Pink Floyd-

TEDY :: 3. mar 2009, 21:31

To je AutiIt skripta.
Nisem sprobal kako deluje za telnet, samo za ping mi je delalo

Goldee :: 26. mar 2009, 10:30

Ej kako bi pa podobno skripto naredil v recimo batchu? Ker bi rad to skripto pognal na enem serverju (server2003), pa ne smem nič nalagat gor?

And Now for Something Completely Different...

-two things I like about UK -Monty Python & Pink Floyd-

ABX :: 26. mar 2009, 11:39

Skriptiranje čez Telnet je ponavadi zelo oteženo zaradi varnostnih razlogov.

nazadnje ki sem to gledal so obstajali samo neki hacki, dejansko ne moreš dobit nazaj povratnih informacij če se je program uspešno izvedel.

Vaša inštalacija je uspešno spodletela!

Zgodovina sprememb…

spremenilo: ABX (26. mar 2009 ob 11:45)

Vredno ogleda ...

	Tema	Sporočila	Ogledi	Zadnje sporočilo
	Tema	Sporočila	Ogledi	Zadnje sporočilo
»	Postavitev mySQL M01O Oddelek: Programiranje	9	2088 (1666)	M01O 26. mar 2018 19:57:32
»	batch fajl iz txt (strani: 1 2 ) Blisk Oddelek: Programiranje	65	8872 (7533)	b3D_950 30. maj 2013 13:20:26
»	Ime Priimek v Ime_Priimek (strani: 1 2 ) Kebab Oddelek: Programska oprema	55	4739 (3699)	Doman 19. mar 2006 09:36:37
»	komunikacija med konzolnimi programi mojca Oddelek: Programiranje	6	934 (789)	bugz116 17. okt 2005 10:17:33
»	[c++] Kako ugotoviti katera tipka je bila pritisnjena zhigatsey Oddelek: Programiranje	14	1432 (1204)	64202 21. dec 2004 19:47:23

Več podobnih tem