Ron McKeever wrote:
Thank you for replying.
Actually there are 7 columns the last one got cut off in the email.
The column im working on is the 6th.
Thats why i thought i needed to split it?
RIp
- - ----
-
1074715516 11
Charles K. Clarkson wrote:
WC -Sx- Jones <[EMAIL PROTECTED]> wrote:
:
: PCRE 4.5 revisited :(
What's PCRE 4.5?
pcre.org - PCRE 4.5 is the latest Perl Code Regular Expression extension
which can be "compiled" into other systems -- to allow such systems to
use Perl-like R/Es -- but it isn't
deny wrote:
my firewall don't stop the 25 port locally
i think that sendmail is not operationnel
telnet 127.0.0.1 25
If you have SMTP services then you will get a SMTP banner.
If sendmail is too complex to install/operate maybe
you should try http://www.postfix.org/
ftp://ftp.porcupine.org/mirr
Ron McKeever wrote:
RIp
- - ----
-
1074715516 111 222.222.2.2 2566 111.111.111.180
111.111.111.1
1074715516 222 .3584 .80
.
1074715516 400 .
WC -Sx- Jones wrote:
What I was shooting for -
/213\.37\.(?:150...251)\.(?:0...255)/
Hell, for that matter - what is the proper syntax for:
#! /usr/local/bin/perl -w
use strict;
use warnings;
my ($first, $second, $third, $fourth, $x, $ip) = (213, 37, 150, 0);
$ip = "$first.$second.$third.$fourth
Hi Everyone,
I'm back - in the intervening months I've lost a Macintosh and gained a
work station running BSD and GNOME.
I was wondering if anyone would post some good examples of use of
File::Find - I would especially like to see how other people use the
'preprocess' option.
I'm writing a sc
The point he was making is that if you call sendmail directly you have
to make these tests everytime you want to use the script on a new
machine. (And, for the purposes of these tests, an upgrade means a new
machine.) There are modules that will handle sending a message via
SMTP, make sure it
Can someone point me in the right direction??
I am trying to figure out my Perl parsing script to dump the interesting
part of my log files to another parsed file. Bascially I want to try an
remove "Dport" rows that contain 80,53,25, etc... Those are tabs between
each
field.
Log File name "lo
WC -Sx- Jones <[EMAIL PROTECTED]> wrote:
:
: PCRE 4.5 revisited :(
What's PCRE 4.5?
: I am trying to reduce this into something "smaller/shorter" -
:
/213\.37\.(?:(?:(?:1(?:[5-9][0-9])|(?:2(?:0|1|2|3|4)[0-9])|(?:25[0-1]\.\
d{1,3}/
Let's break it down:
/
213\.
37\.
(?:
Randy stated:
> /213\.37\.(?:1[5-9][0-9]|2(?:[1-4][0-9]|5[0-1]))\.\d{1,3}/
Thanks. I guess the Range Operator .. ...
still doesn't work inside R/Es
What I was shooting for -
/213\.37\.(?:150...251)\.(?:0...255)/
LOL :)
Bill
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-ma
On 4/17/2004 11:59 AM, WC -Sx- Jones wrote:
WC -Sx- Jones wrote:
PCRE 4.5 revisited :(
I am trying to reduce this into something "smaller/shorter" -
/213\.37\.(?:(?:(?:1(?:[5-9][0-9])|(?:2(?:0|1|2|3|4)[0-9])|(?:25[0-1]\.\d{1,3}/
Sorry - I don't mean to be vague. I normally would use a
WC -Sx- Jones wrote:
PCRE 4.5 revisited :(
I am trying to reduce this into something "smaller/shorter" -
/213\.37\.(?:(?:(?:1(?:[5-9][0-9])|(?:2(?:0|1|2|3|4)[0-9])|(?:25[0-1]\.\d{1,3}/
Sorry - I don't mean to be vague. I normally would use a CIDR to match:
# 213.37.150.0 - 213.37.251.255
I tried many ways, but failed - so I thought using a sub could be a
workaround.
See codes below.
package Store::DisplayTable;
use strict;
use DBI;
use vars qw(@ISA @EXPORT);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(displayTable);
use lib qw(./Store);
use Store::Layout;
use Store::Con
> "John" == John W Krahn <[EMAIL PROTECTED]> writes:
John> Furrfu, kids today. When I starting programming in Perl there was one
John> man page, no books and no web sites. :-)
When Larry started programming in Perl, there wasn't even a manpage.
:-)
print "Just another Perl hacker,"; # the
On Apr 17, 2004, at 10:10 AM, WC -Sx- Jones wrote:
PCRE 4.5 revisited :(
I am trying to reduce this into something "smaller/shorter" -
/213\.37\.(?:(?:(?:1(?:[5-9][0-9])|(?:2(?:0|1|2|3|4)[0-9])|(?:25[0
-1]\.\d{1,3}/
Obviously I am brain dead =/ I have tried -
/213\.37\.[150-251]\.[0-255
On 4/17/2004 11:10 AM, WC -Sx- Jones wrote:
PCRE 4.5 revisited :(
I am trying to reduce this into something "smaller/shorter" -
/213\.37\.(?:(?:(?:1(?:[5-9][0-9])|(?:2(?:0|1|2|3|4)[0-9])|(?:25[0-1]\.\d{1,3}/
Obviously I am brain dead =/ I have tried -
/213\.37\.[150-251]\.[0-255]/or
PCRE 4.5 revisited :(
I am trying to reduce this into something "smaller/shorter" -
/213\.37\.(?:(?:(?:1(?:[5-9][0-9])|(?:2(?:0|1|2|3|4)[0-9])|(?:25[0-1]\.\d{1,3}/
Obviously I am brain dead =/ I have tried -
/213\.37\.[150-251]\.[0-255]/ or
/213\.37\.(?:[150-251])\.(?:[0-255])/ or
/213\
--As of Saturday, April 17, 2004 7:54 AM +0200, deny is alleged to have
said:
dont know
i use sendmail-8.12.9-7mdk
its my server
lrwxrwxrwx1 root root 21 avr 13 14:37 sendmail ->
/etc/alternatives/mta*
The point he was making is that if you call sendmail directly you have to
m
In a message dated 4/17/2004 10:33:51 AM Eastern Daylight Time,
[EMAIL PROTECTED] writes:
>why was ^[^\.]+ suggested rather than ^.*?\. as a pattern.
I just Benchmarked it. qr(^.*?\.) is faster.
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw/cmpthese/;
cmpthese(0, {
'^[^\.]+
In a message dated 4/17/2004 10:29:01 AM Eastern Daylight Time,
[EMAIL PROTECTED] writes:
>Any preliminary thoughts? I have code that works perfectly on my linux
>machine. I'm trying to migrate it to the Windows server these people have
>and now it runs badly.
Helps to show some code :-)
>My CG
I see people have explained the regex itself but not how it's doing
what you want.
It's actually removing everything up until a dot is found
s/// is used to find and replace so this little regex is searching your
string eg http:://www.domain4you.com
finding everything up until a dot is found i
Any preliminary thoughts? I have code that works perfectly on my linux
machine. I'm trying to migrate it to the Windows server these people have
and now it runs badly. My CGI::FormBuilder forms don't render well and I
keep finding 'Useless use of a constant in Void context" errors in the log
file,
John W. Krahn <[EMAIL PROTECTED]> wrote:
:
: Bryan Harris wrote:
: >
: > > Read 'perlhist':
: >
: > How do you know this? I would never have thought to
: > come up with the 8 letters - "perlhist". I just look
: > on the Perl Bookshelf from O'Reilly, but I couldn't
: > find any reference to t
Does anyone have a pre-built perl script for reading log files?
Basically, what I need is a way to read a log file, and email my staff when
a certain key word is found.
It also needs to be able to keep track of what it has already read, so
notices are not sent out continuously.
It would be nice
Bryan Harris wrote:
>
> > DO you really think that would be in the documentation?
> >
> > Read 'perlhist':
>
> How do you know this? I would never have thought to come up with the 8
> letters - "perlhist". I just look on the Perl Bookshelf from O'Reilly, but
> I couldn't find any reference
On 4/17/2004 3:04 AM, Bryan Harris wrote:
DO you really think that would be in the documentation?
Read 'perlhist':
How do you know this? I would never have thought to come up with the 8
letters - "perlhist". I just look on the Perl Bookshelf from O'Reilly, but
I couldn't find any reference
> DO you really think that would be in the documentation?
>
> Read 'perlhist':
How do you know this? I would never have thought to come up with the 8
letters - "perlhist". I just look on the Perl Bookshelf from O'Reilly, but
I couldn't find any reference to the birthdate.
I think that's
27 matches
Mail list logo
