Re: usage of Net::Telnet

[Tim]

Try using input_log and output_log when you instantiate your telnet class.

    $obj = new Net::Telnet ([Binmode    => $mode,]

                            [Cmd_remove_mode => $mode,]

                            [Dump_Log   => $filename,]

                            [Errmode    => $errmode,]

                            [Fhopen     => $filehandle,]

                            [Host       => $host,]

                            [Input_log  => $file,]

                            [Input_record_separator => $chars,]

                            [Option_log => $file,]

                            [Ors        => $chars,]

                            [Output_log => $file,]

                            [Output_record_separator => $chars,]

                            [Port       => $port,]

                            [Prompt     => $matchop,]

                            [Rs         => $chars,]

                            [Telnetmode => $mode,]

                            [Timeout    => $secs,]);

This info can be further illustrated by entering 'perldoc 
Net::Telnet'  form the command line.

At 10:46 AM 1/20/04 +0000, you wrote:

Hi ,

I am trying to use the Net::Telnet module after installing in my solaris 2.8
machine.
But I am unable to get the output.
There is no error messages either.The program just exists.
Could you help me out on this please...
#!/usr/bin/perl -w
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 1000,
                      Port   => 8667);
$t->open("ss-ps.demon.net");
@output = $t->cmd("01244530112");
print @output;
----------------------------------------------------------------------------
----------------
regards,

Ajitpal Singh,
Wipro Technologies.
Finchley,London.
Tel:044 208 495 6317
Mobile:07900534143


-----Original Message-----
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
Sent: 20 January 2004 10:43
To: [EMAIL PROTECTED]
Subject: Re: Saying an item is empty
From: "Trina Espinoza" <[EMAIL PROTECTED]>
> I would like to know how  I would say if $item equals $tempitem OR if
> $item is empty(the variable is  a placeholder that has nothing in it),
> execute command.
I'd revert the tests. First see whether it's empty, then whether it
equals something:
        if (!defined $item or $item eq $tempitem) {
                do something
> Are either of these saying the above statement
> because I don't seem to be getting the expected results.
>
> If ($item =~ /^(\D+)(\d+)/ {)
>     If ($1 eq !$tempitem) {
I guess the capital "I"s were introduced by your mail client (I know
some programs think they know better:-}
Anyway the
        $1 eq !$tempitem
doesn't really make sense.
If you want to say "$1 does not equal to $tempitem" it should be
either
        $1 ne $tempitem
or
        !($1 eq $tempitem)
or
        not ($1 eq $tempitem)
In your version you first LOGICALY negate the $tempitem (which means
that if $tempitem is 0, 0.0, "0", "" or undef you get 1, in all other
cases you get an undef. And then you compare the 1 or undef with the
$1. Not likely to be what you meant.
>         do an action;
>     }else{
>         do some other action;
>         undef $tempitem;
>
> or
>
> If ($item =~ /^(\D+)(\d+)/ {)
>     If ($1 eq defined(!$tempitem)) {
This is even more crazy :-)

>        do an action;
>     }else{
>         do some other action;
>         undef $tempitem;
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
        -- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>