Expect / STDOUT: STDOUT des gestarteten Prozesses lesen (Allgemeines zu Perl)

[thread]8058[/thread]

Expect / STDOUT: STDOUT des gestarteten Prozesses lesen

docsnyder

2006-06-06 15:20

User since
2005-09-08
300 Artikel
BenutzerIn

Hi Perl-Junkies!

Ich verwende Expect schon seit einer Weile und bin begeistert. Jetzt stehe ich aber vor einem Problem:

Ich möchte den Output des Prozesse, der mit Expect gestartet wird abgreifen und weiss nicht, wie ich da dran komme.

Wer weiss Rat?

Gruß, Doc

P.S. Habe schon in allen Threads gesucht, aber keine Lösung dazu gefunden.\n\n

esskar

2006-06-06 15:40

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich kenn expect nicht.
wie startest du das denn bis jetzt von perl aus.

du kennst backticks? also

Code: (dl )

my $stdout = `./program`;

docsnyder

2006-06-06 16:14

User since
2005-09-08
300 Artikel
BenutzerIn

@esskar

Ja, natürlich kenne ich backticks (das wäre ja einfach), aber mit Expect startet man einen Prozess per Expect-API. Backticks alleine genügen nicht, da ich mit Expect einen Dialog (per STDIN/STDOUT des gestarteten Prozesses) handeln muss. Das sieht etwa so aus (<...> ist natürlich nicht PERL-Syntax, sondern bezeichnet einen Regex (<PATTERN>) bzw. einen String (<RESPONSE>)):

Code: (dl )

$exp->raw_pty(1);  
$exp->spawn(sprintf("%s %s -l %s %s", $cmd, $sshOpt, $userObj->user(), $remoteHost));
$exp->expect(10000, [ <PATTERN 1> => sub { $_[0]->send(<RESPONSE 1>); } ]);
...
$exp->expect(10000, [ <PATTERN n> => sub { $_[0]->send(<RESPONSE n>); } ]);

So, und bei dem Versuch, das Problem näher zu erklären, bin ich auf die Lösung gekommen: Da ich zur Erkennung der Ausgaben des Prozesses (auf die ich reagieren will, einen Regex angebe, frage ich nach dem entsprechenden

Code: (dl )

$exp->expect(10000, [ <PATTERN> => sub { $_[0]->send(<RESPONSE>); } ]);

einfach $1 ab, der dann den Match enthält.

Danke also für Deine Antwort, denn nur dadurch musste ich das Problem näher spezifizieren und kam zur Lösung.

Cheers, Doc

View all threads created 2006-06-06 15:20.