From: Pit-Ong.Ong.Goh@reuters.com
Date: Thu Jun 24 2004 - 06:25:00 EDT
Hello,
If I've asked on the wrong list, my apologies; kindly point me
to a good list that covers both Shell & Perl script. I'm Perl illiterate.
I have a Perl script which the person who develops it is not around
anymore & need to enhance it :
I recalled the developer telling me that the following loop is meant
to cover strings like stc-nsfw01a to stc-nsfw99z but if I wish to have a
string containing the above (ie stc-nsfw01a to stc-nsfw99z) but
EXCLUDE strings containing "portscan" & "teardrop" (case-insensitive),
how can I modify the original loop below?
while (<STDIN>)
{
my $hostname;
next unless m
{
(stc-nsfw[0-9]+[a-z])
(.*)
(stc-nsfw[0-9]+[a-z])
(.*)
(stc-nsfw[0-9]+[a-z])
}gix;
}
Am I right to do it as :
while (<STDIN>)
{
my $hostname;
next unless m
{
(stc-nsfw[0-9]+[a-z])
(.*)
(stc-nsfw[0-9]+[a-z])
(.*)
(stc-nsfw[0-9]+[a-z])
}
next m
{
(portscan)
(teardrop)
}
}gix;
}
Tks
Goh
-------------------------------------------------------------- --
Visit our Internet site at http://www.reuters.com
Get closer to the financial markets with Reuters Messaging - for more
information and to register, visit http://www.reuters.com/messaging
Any views expressed in this message are those of the individual
sender, except where the sender specifically states them to be
the views of Reuters Ltd.
_______________________________________________
sunmanagers mailing list
sunmanagers@sunmanagers.org
http://www.sunmanagers.org/mailman/listinfo/sunmanagers
This archive was generated by hypermail 2.1.7 : Wed Apr 09 2008 - 23:28:56 EDT