Perl und Seriell

[Alexander Dehoff <alexander@xxxxxxxxx>]

Liste,

bin mal wieder mit einem seltenen Problem befasst:

Wir haben hier auf Arbeit ein MSA von HP, das nur Seriell ausgelesen
werden DARF!.
Habe daran angeschlossen einen VMWare ESX-Server und moechte u.a. "show
tech_support" absetzen und die Ergebnisse auslesen.
Die sinnigste Hilfe habe ich unter:
http://nntp.perl.org/group/perl.beginners/2005/037msg73220.html
bekommen. Habe die Geschwindigkeit und die Commandos entsprechend angepasst.

Leider bekomme ich nur je gesendetem \n eine Zahl hoeher raus, sprich
wenn ich ein "\n" sende um den Prompt zu bekommen und mir den aktuellen
Inhalt ausgeben lasse bekomme ich als Wert 1, egal was ich absetze nach
jedem "\n" geht das ergebnis ein hoch.

Schliesse ich aber z.B. ein Win-NB mit aktuellem putty (hat inzwischen
serielle Unterstuetzung) klappt das wunderbar, ist aber im Betrieb
unbrauchbar.

dmesg | grep tty bringt:
ttyS0 at 0x03f8 (irq = 4) is a 16550A
ttyS1 at 0x02f8 (irq = 3) is a 16550A

Habe mit stty die Inhalte ausgelesen und sieht soweit OK aus.
Das Ganze versuche ich nur auf ttyS0, da die Kiste hinten nur COM1 hat
(HP DL385, falls relevant).

Bin mit meinem Latein ziemlich am Ende, hat jemand noch ne Idee?

Achja, darf auch gerne als Shell-Script gehen, hauptsache ich kann den
"show tech_support" absetzen.

Danke Euch schonmal

Alexander



-- 
http://mailman.uugrn.org/mailman/listinfo/uugrn