On Fri, Nov 29, 2002 at 03:30:36PM -0000, Daniel Podolsky wrote:
> http://search.cpan.org/author/TPABA/Net-Socket-NonBlock-0.06/NonBlock.pm
>
> Там в SYNOPSIS вполне рабочий tcp port forwarder, который печатает все, что
> через него бежит, на экран.
>
> Модуль, понятное дело, придется поставить...
>
> Если хочется не на экран, а в файл -
> http://search.cpan.org/CPAN/authors/id/T/TP/TPABA/Net-Socket-NonBlock/Net-So
> cket-NonBlock-0.06.tar.gz
>
> Там внутри каталог Contrib, а в нем - tcppf-fl.pl. Требует легкого
> напильника - строки
> use Win32::Console;
> use Term::Getch;
> Надо закоментировать, это я прошляпил, когда выкладывал.
>
> Скриптик где-нибудь запускается, файл hosts правится - и понеслась...
Прошу прощения за оффтопик:
$ perl tcppf-fl.pl 8888 localhost:3128
tcppf-fl.pl started
/Undefined subroutine &Net::Socket::NonBlock::SafeStr called at tcppf-fl.pl
line 55.
$
Нужно бы поправить.
--
WBR, Alexey Tourbin "He is a sane man who can have tragedy
BIOZAK Ltd., Russia in his heart and comedy in his head."
--G.K.Chesterton