Help for this page

Select Code to Download


  1. or download this
    >C:\>perl -MNet::Telnet -w -e "$obj = Net::Telnet->new; $obj->open(Hos
    +t => '127.0.0.1');"
    Argument "" isn't numeric in numeric gt (>) at C:/Perl/site/lib/Net/Te
    +lnet.pm line 2569.
    
  2. or download this
    sub _optimal_blksize {
        my ($blksize) = @_;
    ...
        8192;
    } # end sub _optimal_blksize
    
  3. or download this
    sub _optimal_blksize {
        my ($blksize) = @_;
    ...
        8192;
    } # end sub _optimal_blksize
    
  4. or download this
    2568d2567
    <     $blksize ||= 0;