|
Re: lug-bg: about:perl
- Subject: Re: lug-bg: about:perl
- From: Danail Petrov <oneofus@xxxxxxxxxxxxx>
- Date: Tue, 22 Mar 2005 09:36:54 +0200
Ivan Bogouchev wrote:
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
============================================================================
Може да греша , но мисля че няма никакъв шанс да направя това нещо с `nc'.
--
perl -e 'print 7.66.82.44.10.68.97.110.
97.105.108.32.80.101.116.114.111.118.10'
============================================================================
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
============================================================================
|
|
|