Perl::Expect - DataTrack Escape Sequence

set_uk has asked for the wisdom of the Perl Monks concerning the following question:

I hoping that someone else has had the same problem here.

I have written a script to connect via Perl::Expect using telnet to a Data Track device which is connected to a Meridian voice switch.

The escape sequence to leave the voice session and reenter the Data Track menu is ~@ (tilde followed by an at sign). Works interactively manually - but I cant get it to work via Perl Expect.

Previous problems I have had when sending these type of disconnect signals to other devices is that a trailing carriage return causes the sequence not to be interpreted correctly. This is not the case here.

I have tried:-

$self->{_exp}->send("$RespCmd");
Where $RespCmd = ~@ or '\x7E\x40' or '\176\100'
[download]

Anyone have an idea as to how to identify what might be the issue. I'm told the tracker uses tip for terminal emulation.

Comment on Perl::Expect - DataTrack Escape Sequence Download Code

Replies are listed 'Best First'.
Re: Perl::Expect - DataTrack Escape Sequence by sgifford (Prior) on Oct 30, 2003 at 20:10 UTC
If I were trying to solve this, I would use `strace(1)` or `truss(1)` to see what `tip` is reading when it works and when it doesn't, and figure out how it's different between the two. Maybe it requires a short pause between the two, or requires them to be in two different read statements, or something; see what pattern of reads you get when it works, then dink with your program until you can get it to do the same thing.	[reply]
Re: Re: Perl::Expect - DataTrack Escape Sequence by set_uk (Pilgrim) on Oct 31, 2003 at 00:14 UTC
I need some help on that one. I know how to truss a process which doesn't require input - but for the manual trace where I can disconnect how do I set that truss up to trace and allow me to enter input?	[reply]
Re: Re: Re: Perl::Expect - DataTrack Escape Sequence by sgifford (Prior) on Oct 31, 2003 at 02:20 UTC
Start it up in one window, get the PID, and then use `truss -fp` in another window.	[reply]
Re: Re: Re: Re: Perl::Expect - DataTrack Escape Sequence by set_uk (Pilgrim) on Oct 31, 2003 at 13:09 UTC


go ahead... be a heretic
	PerlMonks