Perl - специальный справочник


           

и использованию теневых посылок, которые,


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

{

print

$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.) Поскольку теневые посылки позволяют отслеживать передвижение пользователей по разделам, а также делать заказы при помощи «магазинной карты», то теплые чувства к теневым посылкам иногда все же преобладают над раздражением.


Содержание  Назад  Вперед