Sorry, forgot the following important line in both
BEGIN { $|=1; }
should be inserted as the second line in each script (just after the #! line)
On mån, 2008-10-27 at 11:48 +0100, Henrik Nordstrom wrote:
> Example script removing query strings from any file ending in .ext:
>
> #!/usr/bin/perl -an
> $id = $F[0];
> $url = $F[1];
> if ($url =~ m#\.ext\?#) {
> $url =~ s/\?.*//;
> print "$id $url\n";
> next;
> }
> print "$id\n";
> next;
>
>
> Or if you want to keep it real simple:
>
> #!/usr/bin/perl -p
> s%\.ext\?.*%.ext%;
>
> but doesn't illustrate the principle that well, and causes a bit more
> work for Squid.. (but not much)
>
> > I am still not clear as how to write
> > help program which will process requests in parallel using perl ? Do
> > you think squirm with 1500 child processes works differently
> > compared to the solution you are talking about ?
>
> Yes.
>
> Regards
> Henrik
signature.asc
Description: This is a digitally signed message part
