Windows & DOS: Issues & Discussions

Hi,
Can anybody help me in writing command "waitfor" for string
"C:\WINNT\Profiles\mfcf0508>" while using net::Telnet module.
I tried the below format :

$telnet->waitfor('/"C\:\WINNT\Profiles\mfcf0508>".*$/i');
Getting error as : pattern match timed-out
Plz help me

Try doubling up the backslashes, Perl may be interpreting them as (bad) escape sequences. Also, you've got a c\:\ there, perhaps you meant c:? And are the double-quotes really necessary?

Tried by putting double back slashes and removing double quotes .
Still iam getting "pattern match timed-out at ./bsc.pl line 20" error.

$telnet->waitfor('/C:\\WINNT\\Profiles\\mfcf0508\\>.*$/i');

original string : C:\WINNT\Profiles\mfcf0508>

What is the .*$ there for? It seems superfluous unless you really need to match the entire line. For that matter, does it even need to be a regex? waitfor is supposedly capable of waiting for simple strings. $telnet->waitfor("C:\\WINNT\\Profiles\\mfcf0508\\>");

What I often do when debugging regexes is simplify them greatly, then add more to the end until they stop working. See if you can get it to match "c:\\", then add more until you find the point it breaks at.

$telnet->dump_log(); may also be useful should the remote server turn out to not be sending precisely what you think it is.