Иллюстрированный самоучитель по Flash-games



         

Программы на языке Perl - часть 3


open(OUTFILE, "»$filename") || exit;

После того как файл будет открыт, программа внесет в него единичные записи, содержащие набранные очки, имя игрока и время, например: 967&Gary&978887513.

# Вносим информацию в базу данных.

print OUTFILE "$info{'score'}&$info{'name'}&$server_time\n";

Программа Submitscore.pl заканчивает свою работу, закрывая текстовый файл и пересылая определенную информацию во Flash. В данном случае переменной resultText присваивается символьная строка ОК.

# Закрываем базу данных.

Close(OUTFILE);

# Подтверждаем ввод данных,

print "resultText=OK\n";

# Завершаем программу,

exit;

Программа Getscores.pl несколько сложнее, чем Submitscore.pl. В ее задачу входит просмотр базы данных, удаление устаревших записей и затем выдача списка десяти лучших результатов. Начало этой программы аналогично началу Submitscore.pl. Далее файл открывает базу данных и перебирает все ее записи с использованием переменной типа "массив" @score_text.

#!/usr/bin/perl

# Устанавливаем метку для текстового документа,

# получаемого на выходе.

print "Content-type: text/html\n\n";

# Указываем имя файла, содержащего базу данных.

$filename = "highscore.txt";

# Просматриваем записи базы данных,

open(DATABASE,$filename) || exit;

@score_text = ;

close(DATABASE);

Затем программа подсчитывает, какое время (в секундах на сервере) было ровно семь дней назад.

# Определяем время на сервере.

$server_time = time();

# Выясняем, как долго сохранять полученные результаты.

# (7 дней * 24 часа * 60 минут * 60 секунд)

$keep_time = 7*(24*60*60) ;

Теперь база данных открыта и готова для записи. Старый файл перезаписывается с учетом новых данных.

# Открываем базу данных для перезаписи.

open(DATABASE,">" . $filename) || exit;

Следующий цикл проверяет каждую запись и определяет, как давно она была внесена в базу данных. Если запись устарела, то она не переписывается в новый файл.

# Просматриваем каждую запись.




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