Ivan Bogouchev wrote:
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
============================================================================
Може да греша , но мисля че няма никакъв шанс да направя това нещо с `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 ============================================================================
