I would love to see the 'HUGE' regex being re-coded using
rule based perl 6.0 on Parrot ;-)).
The 6.0 regex engine looks like the one of YACC (grammar) based to me.
Just a sidenote
~A
On Fri, 12 Nov 2004, Ing. Branislav Gerzo wrote:
> Gunnar Hjalmarsson [GH], on Friday, November 12, 2004 at 00:59 (+0100)
> contributed this to our collective wisdom:
>
> GH> What's your definition of a "good" IP address? Do you care about correct
> GH> DNS, do you care about whether the address is in use?
>
> I care about that, if its syntax is correct:
> 1-255.0-255.0-255.0-255
>
> GH> To me, this test comes to mind:
> GH> sub goodIP { gethostbyaddr pack('C4', split /\./, shift), 2 }
> GH> print "Good IP address\n" if goodIP('11.22.33.44');
>
> after that I can use this, thanks.
>
> >> I don't want use any module for this,
> GH> Why?
>
> I have to first extract IP adresses with ports (20-65535) from the source
> (web, txt...) and ip addr and port could have more then one delimiter, for
> example ':', ' ', 'port' or they should be in html tables. So after some
> playing with that I come with:
>
> while (<TXT>) {
>
> /^((2[0-5]{2}|1\d{2}|[1-9]\d|[1-9])\.((2[0-5]{2}|1\d{2}|[1-9]\d|\d)\.){2}(2[0-5]{2}|1\d{2}|[1-9]\d|\d))(\s*(port|:|\s|<\/td>\s*<td[^>]+>)\s*)([2-9]\d|[1-9]\d{2,3}|[1-5]\d{4}|6[0-4]\d{3}|654\d{2}|655[0-2]\d|6553[0-5])$/g;
> ip = $1;
> port = $8;
> push(@ip,"$ip,$port); #for example
> }
>
> hm, quite huge regexp, hm ?
>
> --
>
> ...m8s, cu l8r, Brano.
>
> [Ignorance won't kill you, but it makes you sweat a lot.]
>
>
>
> -=x=-
> Skontrolované antivírovým programom NOD32
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
