Perl - специальный справочник
Perl. Специальный справочник - стр. 330
data file."
lockfile(DATA);
print DATA $oldtext;
unlockfile(DATA);
close DATA;
open (NEWDATA, "<chat2.dat" or die "Could not open
data file."
lockfile(NEWDATA);
print NEWDATA "<B>", $name, ": ", "</B>", $text;
unlockfile(NEWDATA);
close NEWDATA;
}
}
&printpage
sub printpage
{
$co->header,
$co->start_html(
-title=>'Chat Example',
-author=>'Steve',
-BGCOLOR=>'white',
-LINK=>'red'
),
$co->startform,
$co->center(
$co->textarea(
-name=>'textarea',
-default=>'',
-override=>1,
-rows=>4,
-columns=>40
Читаем и записываем теневые посылки (cookies)
)
),
$co->center
( $co->submit(-value=>'Send text'),
$co->reset, ),
$co->hidden(-name=>'hiddendata'),
$co->endform,
$co->end_html;
}
sub lockfile
{my $count = 0;
my $handle = shift;
until (flock($handle, 2)) {
sleep .10;
if(++$count > 50)
{ &printpage;
exit; }
}
}
sub unlockfile
{ my $handle = shift;
flock($handle, 8); }
Читаем и записываем теневые посылки (cookies)
Этот параграф посвящен записи и использованию теневых посылок, которые, как известно пользователям Интернета, позволяют сохранять информацию сервера на машине пользователя. Но прежде чем обратиться к этой возможности, учтите, что единодушного мнения относительно теневых посылок нет и далеко не все одобряют их.
Использование теневых посылок
Теневые посылки и любимы, и ненавидимы. Многие пользователи терпеть не могут, когда на их компьютерах сохраняются мегабайты информации подобного рода. Мне приходилось видеть Web-страницу, на которой было более 70 теневых посылок. (Это не столь безобидно, как кажется. В большинстве броузеров верхний предел теневых посылок — число порядка 200.) Поскольку теневые посылки позволяют отслеживать передвижение пользователей по разделам, а также делать заказы при помощи «магазинной карты», то теплые чувства к теневым посылкам иногда все же преобладают над раздражением.
