https://www.opennet.ru/openforum/vsluhforumID8/7854.html Коллеги,<br><br>Пищу простенький анонимайзер на Perl<br><br>Как заменить все ссылки в странице $Page на кодированные Base64?<br><br>Туплю, и дальше $Result =~ s/(http:\/\/.+?)//g; дело не движется..<br><br>Как между слешами // вставить функцию code_base64()?<br> https://www.opennet.ru/openforum/vsluhforumID8/7854.html#7 Wed, 26 Mar 2014 12:13:17 GMT &gt; hint encode_base64($1,"") <br><br>Ох уж этот Перл.. Думаешь - баг, а оказывается это фича..<br> https://www.opennet.ru/openforum/vsluhforumID8/7854.html#6 Wed, 26 Mar 2014 10:45:30 GMT &gt;&gt;&gt; зачем тут вообще регекс? ) <br>&gt;&gt; шифруемся же, код тоже должен быть запутанным )) <br>&gt; Сваял)))))): <br>&gt; $Result =~ s,(http://.+?)(?=\s&#124;['"]),"/cgi-bin/anon.cgi?session=".encode_base64($1),ge; <br>&gt; Только после замены, перед последней кавычной переносит строку: <br>&gt; &lt;img src="/cgi-bin/zewa.cgi?session=aHR0cDovLzIxNy4xNzIuMTguMjQxOjE1MTIxL2JhbXQvb2sucG5n <br>&gt; "&gt; <br>&gt; В принципе, работает и так, но для красоты хотелось бы перенос убрать. <br>&gt; Откуда он вообще??<br><br>Читаем ОПИСАНИЕ к http://search.cpan.org/~gaas/MIME-Base64-3.14/Base64.pm<br>[code]Кодирование данных производится путём вызова функции encode_base64().<br>Первым аргументом является строка байтов для кодирования.<br>Вторым аргументом является использование последовательности конца строки.<br>Это необязательный параметр и по умолчанию "\n". Возвращаемая закодированная строка<br>разбивается на строки не более чем 76 символов каждая и всё это заканчивается с $eol,<br>если она не пуста. Передайте пустую строку в качестве второго аргумента, если вы не<br>хотите, чтобы https://www.opennet.ru/openforum/vsluhforumID8/7854.html#5 Wed, 26 Mar 2014 10:06:34 GMT &gt;&gt; зачем тут вообще регекс? ) <br>&gt; шифруемся же, код тоже должен быть запутанным )) <br><br>Сваял)))))):<br>$Result =~ s,(http://.+?)(?=\s&#124;['"]),"/cgi-bin/anon.cgi?session=".encode_base64($1),ge;<br><br>Только после замены, перед последней кавычной переносит строку:<br>&lt;img src="/cgi-bin/zewa.cgi?session=aHR0cDovLzIxNy4xNzIuMTguMjQxOjE1MTIxL2JhbXQvb2sucG5n<br>"&gt;<br><br>В принципе, работает и так, но для красоты хотелось бы перенос убрать. Откуда он вообще??<br> https://www.opennet.ru/openforum/vsluhforumID8/7854.html#4 Wed, 26 Mar 2014 09:35:32 GMT &gt; зачем тут вообще регекс? ) <br><br>шифруемся же, код тоже должен быть запутанным ))<br> https://www.opennet.ru/openforum/vsluhforumID8/7854.html#3 Wed, 26 Mar 2014 09:31:21 GMT &gt;[оверквотинг удален]<br>&gt;&gt; Как между слешами // вставить функцию code_base64()?<br>&gt; Использовать модификатор e <br>&gt; а поиграем в сноудена? )) <br>&gt; [code]#!/usr/bin/perl <br>&gt; use strict; <br>&gt; use warnings; <br>&gt; use MIME::Base64; <br>&gt; my $url = "http://ya.ru"; <br>&gt; $url =~ s/($url)/encode_base64($1)/e; <br>&gt; print $url;[/code]вот, ещё сюда можно глянуть =&gt; http://www.jmarshall.com/tools/cgiproxy/ <br><br>зачем тут вообще регекс? )<br><br> https://www.opennet.ru/openforum/vsluhforumID8/7854.html#2 Wed, 26 Mar 2014 09:17:19 GMT &gt; Коллеги, <br>&gt; Пищу простенький анонимайзер на Perl <br>&gt; Как заменить все ссылки в странице $Page на кодированные Base64?<br>&gt; Туплю, и дальше $Result =~ s/(http:\/\/.+?)//g; дело не движется..<br>&gt; Как между слешами // вставить функцию code_base64()?<br><br>Использовать модификатор e<br>а поиграем в сноудена? ))<br>[code]#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use MIME::Base64;<br><br>my $url = "http://ya.ru";<br><br>$url =~ s/($url)/encode_base64($1)/e;<br>print $url;[/code]вот, ещё сюда можно глянуть =&gt; http://www.jmarshall.com/tools/cgiproxy/<br> https://www.opennet.ru/openforum/vsluhforumID8/7854.html#1 Wed, 26 Mar 2014 07:49:31 GMT цината из нагугленого мана:<br><br>например нужно переделать все escape последовательности, для этого вызывается соответствующая подпрограмма:<br>$text =~ s/(&.*?;)/&esc2char($1)/egs;<br>т.е. из регулярного выражения происходит вызов подпрограммы.<br><br>а вообще зачем именно в регексе это делать - разберите, измените, соберите.<br>