There are online RegEx-Utilities that helps you building regex.
There are some modul with many common regex to steal from or just import.
(Regexp::Common)
And there is ActiveState Perl Editor with a 30 Trail and a great "realtime"
RegEx-Tool and Debugger.
If nothing else helps take a look at perlrequick then perlre.
Maybe a look at Have a look at Regexp::Genex is interesting, too.
Albretch Mueller <[EMAIL PROTECTED]> hat am 11. September 2008 um 16:52
geschrieben:
> On Wed, Sep 10, 2008 at 1:47 PM, Mr. Shawn H. Corey
> <[EMAIL PROTECTED]> wrote:
> > On Wed, 2008-09-10 at 07:12 -0700, [EMAIL PROTECTED] wrote:
> >> Re:An the solution is.... (Score:3, Interesting)
> >> Re:An the solution is.... (Score:5, Informative)
> >> Re:Its a pity that... (Score:4, Informative)
> >> Re:Quick Fix (Score:4, Informative)
> >> Re:Quick Fix (Score:4, Insightful)
> >> ~
> >> I am matching with the pattern:
> >> ~
> >> ^Re:[^()]+\s
> >> ~
> >> All this pattern basically says (to my understanding) is "match
> >> everything that starts with 'Re:' and has some characters righ after".
> >> However I am not able to include the suffix looking like "\.\.\. \
> >> (Score:[1-5], \w\)$" to that pattern
> >
> > Capture what you're matching and print it so that you know it does what
> > you think it does:
> >
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > while( <DATA> ){
> > if( /^(Re:[^()]+\s)/ ){
> > my $matched = $1;
> > print "matched : '$matched'\n";
> > }
> > }
> >
> > __DATA__
> > Re:An the solution is.... (Score:3, Interesting)
> > Re:An the solution is.... (Score:5, Informative)
> > Re:Its a pity that... (Score:4, Informative)
> > Re:Quick Fix (Score:4, Informative)
> > Re:Quick Fix (Score:4, Insightful)
> ~
> well, I doing testing. My actual problem is, as I explained in my
> initial post, is that I am doing a way to coarse matching that may
> wildly grab many false positives
> ~
> What I want to do now is refine my regexs to be more precise and I
> have tried lots of things, but non seems to be working. This i swhat I
> need help with
> ~
> Thanks
> lbrtchx
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
