Dear All,
Please see the code here.
---
use Net::Telnet;
$telnet = new Net::Telnet(Port => 25);
$result ='Active';
@hosts=('208.220.254.1',208.220.254.2',208.220.254.3');
foreach $host(@hostes){
$t
This is one way I did it. The letters represent different things.
X,Y,Z,T,U,Q,W-- All Host Names.
Hope this Helps
my @hosts= qw(X Y ZZ TT UU Q WW;
my $username = "XXX";
my $passwd = "";
my $t;
my $check;
my @lines;
my $logPath = "/home//log";
my
On Sat, Feb 23, 2002 at 02:13:27PM +0530, Veeraraju_Mareddi wrote:
> Please see the code here. But This program terminates if one of
> them is Failed.
It terminates because Net::Telnet->Errmode defaults to 'die'.
You should really set it to 'return'.
But there are lots of other bugs in your c
Hey,
Do somebody know where could I find the DBI module for WidowsNT?, I'm trying
to connect to Oracle.
Thanks!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I had great success with Learning Perl by Schwartz, etc. Good examples,
nicely paced, and a good read.
- geoff
On 2/22/02 7:28 PM, "Anidil Rajendran-Raj" <[EMAIL PROTECTED]> wrote:
> I am unix admin trying to learn perl. How is the book "LEARNING PERL BY
> EXAMPLE" by Ellie Quigley
--
To u
Hi Franken
Thank you very much.This is working.
One more Information I need ,Please see it.
This is testing ports by telnetting to the ports.But in doin so it real for
25 port only.For remaining ports ,its failed,that means Even though PORT is
opened ,TELNET is not able to Open.
Is there any w
hi...
thats just a testmail... i have big trouble with my mailprogram and could
not send a mail to the list. i hope it works now.
im sorry!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Fri, 22 Feb 2002, bob ackerman wrote:
> am i making to big a fuss? is creating a module a trivial task?
Making a module is relatively easy and is the best way to do it in Perl.
Modules don't have to be big and complicated, nor are they always intended
to be for general public use.
-- Brett
On Sat, Feb 23, 2002 at 05:51:18PM +0530, Veeraraju_Mareddi wrote:
> This is testing ports by telnetting to the ports.But in doin so it real for
> 25 port only.For remaining ports ,its failed,that means Even though PORT is
> opened ,TELNET is not able to Open.
telnet is a tcp service, that's why
On Thu, Feb 21, 2002 at 02:22:48PM +1030, Daniel Falkenberg wrote:
> Is it possible to get a regex to say ... "hang on I only want numerals
> in my variable.
> if ( $var =! Digits ) {
Your regex is: /^\d+$/ , which means:
- any numeral (\d)
- at least one time (+)
- but nothing else in that lin
I have an online form that has a "Comments" field. I
need to extract ALL of the information from the
comments field.
Each "Comments" line begins with Comment: so the
/^Comments/ works to match that, however the user may,
or may not enter a new line in their comments and they
may or may not sta
On 2/23/02 3:52 PM, Marc Morrison <[EMAIL PROTECTED]> wrote:
> I have an online form that has a "Comments" field. I
> need to extract ALL of the information from the
> comments field.
>
> Each "Comments" line begins with Comment: so the
> /^Comments/ works to match that, however the user may,
The form generally has input as follows:
Comment: comment 1 then a new line
then comment two then a new line
then comment three
I am trying to capture all three lines of this
Comment: field.
The script looks like:
$/ = undef;
while <>;
if /^Comment:(\s*)(\w*)/
print $2;
Hope this helps;
Tha
On 2/23/02 8:51 PM, Marc Morrison <[EMAIL PROTECTED]> wrote:
Hi Marc,
> The form generally has input as follows:
>
> Comment: comment 1 then a new line
> then comment two then a new line
> then comment three
>
> I am trying to capture all three lines of this
> Comment: field.
Oops, sorry abo
So __LINE__ is tricky eh? Wants to be an array?
Tried &tracking(__LINE__); and got only '1'. Resorted to:
@line = __LINE__; &tracking(@line);
at the end of each line in the script ending with ';' or '}', and had to
receive it in the sub like this:
$line = $_[0];
The sub reads and writes
15 matches
Mail list logo