1)
Как из массива состоящего из цифр (н-р:
1, 5, 10, 51, 7)
Выбрать произвольным образом какое-нибуль число. Как задать вероятность в процентах того, что выпадет именно это число?
2)
У меня есть массив, в него записан файл, н-р:
log|5|kdgshg
gs|10|kdjhfs
qq|1|kdsfa
yg|11|fdvgdf
jsh|72|dg
Как его преобразовать, так чтобы он по второму параметру выстроялся по возростанию?
3)
Вопрос по сокетам:
Вот простой код коннекта:
#!/usr/local/bin/perl
use Socket;
$AF_INET=2;
$SOCK_STREAM=1;
$protocol=(getprotobyname(\'tcp\'))[2];
$end="\\015\\012";
$site="nlib.narod.ru/";# Адрес хоста без
http:// $port=80;
$addr=(gethostbyname($site))[4];
$addrs=pack (\'S n a4 x8\', $AF_INET, $port, $addr);
$cur=\'parts/violino.html\';#имя файла на хосте Например /cgi-bin/cookie.cgi
{print "Content-Type: text/html\\n\\n";
if (!(socket(LOAD,$AF_INET,SOCK_STREAM,$protocol))){
print "Невозможно создать сокет!"; exit;}
if (!(connect(LOAD, $addrs))){print "Невозможно соединиться!"; exit;}
select(LOAD);
$|=1;
select(STDOUT);
print LOAD "GET $cur HTTP/1.0$end";
print LOAD "Content-Type: application/x-www-form-urlencoded$end";
print LOAD "Accept: text/html$end";
print LOAD "Accept: image/jpeg$end";
print LOAD "User-Agent: Mozilla/8.0 (Сам ты юзер!;I 8.0; Windows 98; DigExt)$end";
print LOAD "Accept: image/gif$end";
print LOAD "Accept: image/x-xbitmap$end";
print LOAD "Referer:
http://www.hvost.kz/$end";
print LOAD "Accept: image/pjpeg$end";
print LOAD "Cookie: nik=uuu; passwd=e789201b865999990c17bf5bc9c15$end";
print LOAD "Host: $site$end";
print LOAD "Authorization: Basic $encoded$end";
print LOAD "$end$end";
@body=
;
print @body;
close (LOAD);
}
Но коннект происходит не совсеми сайтами (в примере сайт не грузиться). Говорит, что коннект закрыт...
Как исправить это дело?
Пока все. Буду рад вашей помощи, особенно, если она будет разжеванна на нет. А то порой короткое объяснение еше больше запутывает...