Sertys wrote:
On Mon, 21 Mar 2005 10:23:13 +0200, Damyan Ivanov <[EMAIL PROTECTED]> wrote:
Абе това не е толкова сложно, колкото го изкараха колегите. В крайна сметка, направи си сървърна апликация от сорта на :
$server_socket = new IO::Socket::INET->new(LocalPort=>XXXXX,Proto=>'tcp/udp');
while(100){
if ($server_socket->recv($cmd, 200)){
&do_something();
print STDOUT "wow!';
}
}
Е, ако оставим нещата толкова прости (без автентификация, без криптиране, без сесии и т.н.), има един туул наречен netcat дет ще спести и писането на perl.
============================================================================ A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html ============================================================================
