in reply to Re: Matching IP address continued
in thread Matching IP address continued

This file is a direct dump of data I am looking at.

My snippet of code looks like: 

...
# Setup our IP matching regex
my $re_ip = qr/(\d+\.\d+\.\d+\.\d+):\d+/;
my $re_test = qr/^\s*$re_ip\s*->\s*$re_ip\s*->\s* $re_ip/x;
my $re_line = qr/ ^ \s* $re_ip \s* -> \s* $re_ip \s* -> \s* $re_ip /x;

...

# Reset data
my @connections = `bigpipe conn dump`;

...

foreach my $line (@connections) {
                 print "$line\n" if ($line =~ /$re_test/);
                 $vip{$2}{'conn_count'}++ if ($line =~ /$re_line/);
        }

[download]

The print statement works as expected; the increment does not. The increment counter works immediately if I change it to if ($line =~ /$re_test/);

Thanks again for all the help.

<-> In general, we find that those who disparage a given operating system, language, or philosophy have never had to use it in practice. <->

Replies are listed 'Best First'.
Re: Re: Re: Matching IP address continued
by BrowserUk (Patriarch) on Nov 20, 2002 at 19:32 UTC

    Again, running all the regexes, including the $re_test and $re_line from this post (c&p very carefully) against the entire file you linked, the only line that any of them do not match is the first one. 

    from                 vip          node        proto

    [download]

    The next question is what version of Perl are you running and on what OS?

    Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
    Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
    Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
    Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

[reply]
[d/l]
      Here's what a perl -V gets me: 

      Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=bsdos, osvers=4.1, archname=i386-bsdos
    uname='bsdos bsdi.com 4.1 :bsdos_distribution defined: i386'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314 (egcs-1.
+1.2 release)
    cppflags=''
    ccflags =''
    stdchar='char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=1
+2
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =' -L/usr/X11/lib -L/usr/local/lib'
    libpth=/usr/local/lib /usr/shlib /shlib /usr/lib /usr/X11/lib
    libs=-ldl -lm -lc
    libc=/shlib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynami
+c -Wl,-rpath,/usr/libdata/perl5/5.00503/i386-bsdos/CORE'
    cccdlflags='-fPIC', lddlflags='-shared -x  -L/usr/X11/lib -L/usr/l
+ocal/lib'


Characteristics of this binary (from libperl):
  Built under bsdos
  Compiled at Nov 16 1999 17:30:11
  @INC:
    /usr/libdata/perl5/5.00503/i386-bsdos
    /usr/libdata/perl5/5.00503
    /usr/libdata/perl5/site_perl/i386-bsdos
    /usr/libdata/perl5/site_perl
    /usr/libdata/perl5/site_perl/i386-bsdos/include
    .

      [download]

      My script is already using the regex that works for me, so this is really a non-issue, just one that I thought was odd.



      <-> In general, we find that those who disparage a given operating system, language, or philosophy have never had to use it in practice. <->
[reply]
[d/l]

        I'm using AS 5.6.1 under NT. Looks like you have re-discovered an old bug that was fixed. Them's the breaks. Upgrade when you can, or if you need to.

        Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
        Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
        Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
        Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

[reply]

In Section Seekers of Perl Wisdom