# Untested
use strict;
use Net::Telnet
open(FH, "host_list_file") || die "Yikes $!";
while (<FH>) {
    # your telnet stuff here
}
[download]

HTH

Untested as I don't have access to multiple telnet hosts, but it should work correctly.

The Net::Telnet stuff is based entirely on your sample. I never used it, nor even read the manual.

If you're dealing with more than a half a dozen or so threads, it would be better to use a fixed size pool rather than one per... That's slightly more complicated, but only slightly.

#! perl -slw
use strict;
use threads qw[ async ];
use Net::Telnet;

sub remoteCmd {
    my( $host, $user, $pass, @cmds ) = @_

    my $t = new Net::Telnet(
        Timeout => 2810,
        Prompt  => '/%/',
        Host    => $host 
    );

    $t->login( $user, $pass );
    $t->cmd( $_ ) for @cmds;
    $t->close;
}

my @hosts = (
    [ qw[ 111.111.111.001 user pass ] ],
    [ qw[ 111.111.111.002 user pass ] ],
    [ qw[ 111.111.111.003 user pass ] ],
    [ qw[ 111.111.111.004 user pass ] ],
    [ qw[ 111.111.111.005 user pass ] ],
    [ qw[ 111.111.111.006 user pass ] ],
    [ qw[ 111.111.111.007 user pass ] ],
);

my @cmds = ( 'cd ~', 'ls -l' );

## These three lines do all the work.
my $count : shared = @hosts;
async{ remoteCMD( @$_, @cmds ); $count-- }->detach for @hosts;

sleep 1 while $count--;
[download]

hi 1)wt is multiple host process? how can i use multiple host? 2) See i m having 2 lan card in a same pc. i m using my one lan card on statical ip on it i used to run one java based software runs on java console (batch file) and it is ip bases software. and another lan card on DHCP setting for local network. Then how can i used my both network symultanously? Is there any extra setting to be done in my pc?. u can revert me on ketan.chaudhari@relianceada.com Regards Ketan Chaudhari

#!/usr/bin/perl -w

use Net::Telnet;

$t = new Net::Telnet(Timeout => 2810,
                         Prompt  => '/%/',
                         Host    => '10.201.157.22' );

$t->login( "control" );
{
        $t->cmd( "set airlink state disabled
write
reboot" );
}
$t->close;
[download]

2018-09-28 Athanasius added code tags