https://opennet.ru/openforum/vsluhforumID9/4606.html Пытаюсь нормально настроить squidguard.cgi<br><br>Но в нем не правильно указано регулярное выражение для парсинга строки<br><br>строка:<br>clientaddr=192.168.16.1+clientname=+clientident=login+srcclass=sample-clients+targetclass=porn+url=http://www.sex.ru/<br><br>Код для парсинга<br> if (defined($query)) {<br> while ($query =~ /^\&?([^\&=]+)=\"([^\"]*)\"(.*)/ &#124;&#124; $query =~ /^\&?([^\&=]+)=([^\&=]*)(.*)/) {<br> my $key = $1;<br> my $value = $2; <br> $value = %word-&gt;{"unknown"}-&gt;{$lang} unless(defined($value) && $value && $value ne "unknown");<br> $query = $3;<br> if ($key =~ /^(clientaddr&#124;clientident&#124;clientuser&#124;clientgroup&#124;targetgroup&#124;url)$/) {<br> eval "\$$key = \$value";<br> }<br> if ($query =~ /^url=(.*)/) {<br> $url = $1;<br> last;<br> }<br> }<br> }<br><br>Если убрать в выражении кавычки - получим что все кроме урла забьется в clientaddr. А иначе - вобще не парсит толком https://opennet.ru/openforum/vsluhforumID9/4606.html#2 Wed, 18 Jun 2008 03:36:47 GMT &gt;[оверквотинг удален]<br>&gt;т.о. образом нужно заменить <br>&gt;<br>&gt;$query =~ /^\&?([^\&=]+)=\"([^\"]*)\"(.*)/ &#124;&#124; $query =~ /^\&?([^\&=]+)=([^\&=]*)(.*)/ <br>&gt;<br>&gt;на <br>&gt;<br>&gt;$query =~ /^\+?([^\+=]+)=\"([^\"]*)\"(.*)/ &#124;&#124; $query =~ /^\+?([^\+=]+)=([^\+=]*)(.*)/ <br>&gt;<br>&gt;но честно говоря, криво это как-то всё, может где-то ещё что вылезет <br>&gt;:( <br><br>Поменять надо + на & и все будет ок<br><br> https://opennet.ru/openforum/vsluhforumID9/4606.html#1 Wed, 31 Aug 2005 16:51:55 GMT то, что сразу бросается в глаза:<br>скрипт ожидает в качестве разделителя '&' а в указанной строке используется '+'. <br>т.о. образом нужно заменить <br><br>$query =~ /^\&?([^\&=]+)=\"([^\"]*)\"(.*)/ &#124;&#124; $query =~ /^\&?([^\&=]+)=([^\&=]*)(.*)/<br><br>на <br><br>$query =~ /^\+?([^\+=]+)=\"([^\"]*)\"(.*)/ &#124;&#124; $query =~ /^\+?([^\+=]+)=([^\+=]*)(.*)/<br><br>но честно говоря, криво это как-то всё, может где-то ещё что вылезет :(