Программирование на PERL
Если Вам необходимо учитывать количество нажатий (кликов) на какую-то
определенную ссылку то для этого конечно же необходим скрипт делающий это.
Ниже представлен простенький пример такого скрипта
#!/usr/bin/perl
$link_file="clcks.dat";# Файл куда будет помещаться статистика
$query=$ENV{'QUERY_STRING'};
# Открываем файл
open(LOG,"$link_file");
# Помещаем строки в хэш
@statArray=<LOG>;
$islink=0;
# Проходим по всем строкам
for($i=0;$i<=@statArray-1;$i++){
# Разделяем строку на счет и ссылку
($count,$lnk)=split(/|/,@statArray[$i]);
# Удаляем возврат каретки
chop($lnk) if $lnk =~ / $/;
# Проверяем есть ли запрошенная ссылка
# в базе
if($lnk eq $query){
# если есть......
# инкриминируем счетчик
$count++;
Перезаписываем строку в хэш
@statArray[$i]="$count|$lnk ";
$islink=1;
break;
}
}
close(LOG);
open(LOG,">$link_file");
#Записываем хэш в файл
print LOG @statArray;
# Если ссылки в базе нету, добавляем
if($islink==0){print LOG "1|$query ";}
close(LOG);
# Переходим на ссылку
print "Location: $query ";
|
В качестве запроса этому скрипту передается ссылка на которую надо перейти,
например click.cgi?http://webprog.vov.ru. Пользователь нажав на такую
ссылку попадет на сайт http://webprog.vov.ru, а в файл указанный в
переменной $link_file будет записана информация вида
количество_нажатий|ссылка. Для работы необходимо создать файл указываемый в
$link_file и установить ему права на запись (для Unix).
Тестирование параллельного программного обеспечения представляет собой более
сложную задачу по сравнению с тестированием последовательной программы. Программист
должен знать о подводных камнях при тестировании параллельного кода, имеющихся
методологиях и инструментарии.
Аннотация. В статье кратко рассматривается архитектура AMD64 компании AMD и ее
реализация EM64T компании Intel. Описаны особенности архитектуры, ее возможности,
достоинства и недостатки.
