|
|
Re: lug-bg: about:perl
- Subject: Re: lug-bg: about:perl
- From: Ivan Bogouchev <ivan.bogouchev@xxxxxxx>
- Date: Tue, 22 Mar 2005 01:31:58 +0100
Sertys wrote:
On Mon, 21 Mar 2005 10:23:13 +0200, Damyan Ivanov
<divanov@xxxxxxxxxxxxxxx> 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
============================================================================
|
|
|