Re: [MacPerl] Peter's Perl Predicament

[link@tss.no (Terje Bless)]

>At 12:33 PM 2/12/96, Peter wrote:
Original script [SNIP]ed
>>However, Matthias said this :-
>>>
>>>if (/GET (http://[^/]+)?(\S+)/) {
>>>    if (.nz) {
>>>        $NZHits{$2}++;
>>>    } elsif (.au) {
>
>>This is the bit I don't understand, I've tried various things without success.
[SNIP]
>>If anyone can spare the time to help me out here I'd be very grateful.
>
>Ok.  Get yourself a UNIX box for a minute, and at the command line type
[SNIP]
>$2 thing in there.  Sorry I can't help beyond that, but basically he is
>testing (in a complex manner) for url's.

Actually, shouldn't that test fail since he isn't escaping the slashes in
:// in the regex. The way I read the above script the regex is:

/GET (http:/

And the rest of the line (/[^/]+)?(\S+)/) is just garbage ?


<disclaimer>
I'm not all that good with perl (or programming for that matter ;->) so
this might have been a really stupid question.
</disclaimer>







--
Stop the hegemony. Join "EvangeList," Guy Kawasaki's (un)official Apple
listserver of good news about Apple, Macintosh, and third-party
developers. To subscribe to EvangeList, send an email to:
listproc@solutions.apple.com> and include in the body of the message the
text: Subscribe Macway <Your Name>