Net::SSH::Perl - Permission Denied

2013-03-20 Thread Alvin Ramos
I'm wanting to run through each server, but if it gets to a server that it can't login not to die. The "server-list.txt" has: localhost localhost2 localhost3 localhost4 When it gets to localhost3 and it dies with: Permission denied at ./ linux_discovery.pl line 20 I would like it to keep rolling

Retry function?

2012-12-13 Thread Alvin Ramos
Any one have any suggestions of a module/function/method to write a perl script to try pinging a server then after the 3rd time to send an email? Thanks in advance... -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.pe

Mime::Lite sending email

2012-12-10 Thread Alvin Ramos
I have a perl script that is running every 5 minutes to see if the mysql server has a locked query, once it does, it sends me an email with thread_connected and the query. I was curious, how could I write into the script to send me the information one time instead of every 5 minutes after it doe

[Solved] Can't find string terminator

2012-05-10 Thread Alvin Ramos
Thanks for your help "qq{mysqldump ..." worked perfectly! On May 9, 2012, at 10:44 PM, Owen wrote: > On Wed, 9 May 2012 22:02:00 -0400 > Alvin Ramos wrote: > >> Have a simple perl script that will run a mysql dump, but I'm getting >> >> Can't fi

Can't find string terminator

2012-05-09 Thread Alvin Ramos
Have a simple perl script that will run a mysql dump, but I'm getting Can't find string terminator '"' anywhere before EOF at ./ssh.pl line 5 My code, I assume the " is throwing it all off, but the / didn't help: use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new("heaven.theflux.net"); $ssh->

Re: perl -E

2012-02-24 Thread Alvin Ramos
perl --help Will explain what the switches do... Regards... On Feb 24, 2012, at 10:32 AM, Steve Bertrand wrote: > Hi all, > > Lately, I have seen many command-line one-liners floating around with the -E > argument: > > perl -E '#do stuff' > > Could somebody kindly remind me which perldoc I