Thank you for your help! I am definitely getting closer. After playing around with Thread::Queue for a while I have created my telnet2cli function as follows. I think I am missing how it works exactly since the program hangs after 5 worker iterations and doesn't do any more than that. Do I need to return the resultQ from the function? Also, as an aside, being a thread and Thread::Queue newbie, I thought if I detached the threads than I would lose any return values, which I definitely need.
Following from your code I have:
my $Qin = new Thread::Queue;
my $Qout = new Thread::Queue;
my @pool = map{
threads->new( \&telnet2Cli, $Qin, 'show version')->det
+ach
} 1 .. 5;
my $running : shared = @pool;
$Qin->enqueue( @values );
sleep 1 while $running;
my @versionOuput = $Qout->dequeue;
sub telnet2Cli {
require Net::Telnet::Cisco;
my ($ServerQueue, $command) = @_;
my @output = ();
my $output = '';
my $ResultQ = new Thread::Queue;
my $Server = $ServerQueue->dequeue;
my $session = Net::Telnet::Cisco->new(Host => $Server, inp
+ut_log => "input.log.$Server");
$session->login(Password => 'Password here');
if ($session->enable("Password here")) {
$session->cmd("terminal length 0");
@output = $session->cmd($cmd);
$output .= "@output";
print "Output about to be enqueued to ResultQ
+is $output\n";
$ResultQ->enqueue($output);
} else {
warn "Cant enable: " . $session->errmsg;
}
$session->close;
return $ResultQ;
}
When I run the program from the command line I do see the expected output from the print statement, but it never continues beyond the 5th connection.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|