Re^2: For each loop through mysql db to run Net::Telnet command

Thank you - I made edits to the main loop but the error in the terminal is : Can't locate object method "fetchall_arrayref" via package "2" (perhaps you forgot to load "2"?) at filepath line XXXXXXXXXX

 
my $dbc = DBI->connect($dsn, $username, $password) or die "Unable to c
+onnect to mysql: $DBI::errstr\n";

#//loop through the servers table to pull data for each server
my $sql = $dbc->prepare("SELECT server_host FROM servers");

my $result = $sql->execute()
 or die "Unable to execute sql: $sql->errstr";


XXXX ERROR LINE XXXXX my $host_array_ref = $result->fetchall_arrayref(
+) or die "can't get array ref! $sql->errstr"; XXXXXXXXXX


 foreach my $rowref (@$host_array_ref)
 {
     my ($host) = @$rowref;
     
     print "Calling telenet stuff for $host\n"; #a little debugging ou
+tput is fine
     # call your telnet routine on this host
my $device    =  $host;
my $user      = "admin";
my $password  = "zhone";

STDOUT->autoflush;

die "Unable to telnet to device\n" if (! (my $session=zhoneConnect($de
+vice)));

die "unable to login to device\n" if (! zhoneLogin($session, $user, $p
+assword));

zhoneCommand($session, "timeout off");
zhoneCommand($session, "setline 0");
$session->prompt('/\n\rAUTO>\s*/');
zhoneCommand($session, "setprompt session AUTO>\r");

my @output=zhoneCommand($session, "bridge show");
for (@output) {
  print "$_\n";
}
zhoneDisconnect($session);
 
 }
[download]

Comment on Re^2: For each loop through mysql db to run Net::Telnet command Download Code

Replies are listed 'Best First'.
Re^3: For each loop through mysql db to run Net::Telnet command by 1nickt (Canon) on Nov 08, 2022 at 20:14 UTC
Hi, You are trying to call `fetchall_arrayref` on the return value of your `execute()` call. In fact it is a method on the statement handle, which in your code is `$sql` (more idiomatically named as `$sth`). Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l] [select]
Re^4: For each loop through mysql db to run Net::Telnet command by jay83 (Novice) on Nov 14, 2022 at 13:13 UTC
This helped thank you!	[reply]
Re^3: For each loop through mysql db to run Net::Telnet command by Marshall (Canon) on Nov 10, 2022 at 15:36 UTC
Yeah, there are some cut-n-paste errors above. Unfortunately you didn't provide a complete example for me to test my code with. First suggestion is to get rid of the "or die" statements, by specifying the raise error option during the dB connect. A little short of time this morning, but the below is some actual working code from a few days ago on an SQLite DB. I use $dbh for the data base handle. You can follow this pattern. `my %attr = ( RaiseError => 1); #auto die with error printout my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfilename","","",\%attr) or die "Couldn't connect to database $dbfilename: " . DBI->errstr; my $get_qsos = $dbh->prepare ("SELECT * FROM raw_qsos WHERE rcv_call = ?"); $get_qsos->execute($call); my $resultRef = $get_qsos->fetchall_arrayref; my $n_dbQso = scalar(@$resultRef); #number of rows with that call` [download]	[reply] [d/l]
Re^4: For each loop through mysql db to run Net::Telnet command by jay83 (Novice) on Nov 14, 2022 at 13:15 UTC
No problem Marshall - thank you for the follow up and help!!	[reply]