Is there a space after the prompt? Maybe you need
$obj->prompt('/C\:\\\>\s$/')
If there is a space, then removing the $ would cause the pattern to match.
Ken
Allegakoen, Justin Devanandan wrote:
> Hello all,
>
> I'm using the Net::Telnet module on a SunOS based
> system to run a program that resides on a
> Windoze 2k server.
>
> By use of the log, I have determined that
> connection, and login are fine.
>
> But I keep getting a pattern match timed-out error.
>
> According to the Help, it relates this to
> matching the prompt and it states: "If the pattern chosen doesn't
> match what's sent, then it's likely those commands will timeout. "
>
> On a manual telnet session the command prompt is:-
> C:\>
>
> In my program I set my prompt as :-
> $obj->prompt('/C\:\\\>$/');
>
> I follow that by :-
> $obj->waitfor('/C\:\\\>$/');
>
> And there's where it times out.
>
> Funnily enough if I remove the anchoring $ in the search pattern
> the rest of the program will work, and the log will even have the
> return of the command executed, but output from the
> command won't go into the array I put it in (I get a 0 element
> array instead).
>
> Obviously $obj->prompt needs a search pattern that works for
> the rest of the program to. Question is what is the search pattern I need?
>
> Oh, and using quot in Net::FTP doesnt work either.
>
> Just in
>
>
>
>
>
>
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
