Программирование > Perl

Неправильно обнуляется список

(1/2) > >>

webser:
Суть ::: на локальном сервере все нормально работает - список не наращивается (видно в настройках Apache так сделано.) Тот же скрипт на внешнем хостинге (Zenon) дает наращивание списка при работе.

$file = $path.$country."/clients.dat"; # указание файла на сервере

open(FILE,"$file");
my @list = ;
close(FILE);

# формирование списка на вывод
# my @Special = ""; # Обнуляем список
foreach (@list) {
my ($spec, $id, $name, $txt, $logo, $link) = split(/$delimiter1/);
if ($spec eq "*") { # выбираем строки для массива @Special
push (my @Special, $_);
}
}
#подсчет записей в файле
$count = @Special;

#отладочная песать
print qq!

Число Клиентов = $count

!;
foreach (@Special) {
print qq!
$_ |
!;
}

Результата работы
Число Клиентов = 53
*#0002#3 канал### | *#0005#Cool Air### | *#0007#European Food Group### | *#0008#Home Net Telecom (HNT)### | *#0016#Абсолют Банк### | ..........
Перезагружаем страницу :
Число Клиентов = 106
*#0002#3 канал### | *#0005#Cool Air### | *#0007#European Food Group### | *#0008#Home Net Telecom (HNT)### | *#0016#Абсолют Банк### | *#0020#Агрохимбанк### | *#0512#ИД «Аксель Шпрингер Раша»### |........
и т.д.

поставил (раскоментировал) строку
my @Special = ""; # Обнуляем список

Помогло, список перестал наращиваться, но в начале списка появился нулевой элемент и список увеличился на 1 !!!

Число Клиентов = 54
| *#0002#3 канал### | *#0005#Cool Air### | *#0007#European Food Group### | *#0008#Home Net Telecom (HNT)### | *#0016#Абсолют Банк### | *#0020#Агрохимбанк### |

ВОПРОС :::: Как с этим бороться - что-то изменить в коде или в настройках httpd.conf

Заранее спасибо

arto:
my @Special;

webser:
Ха! Дольше писал.....
ерфтлы, что в переводе означает thanks  ;-))))))))))))))))))))))))))))))))))

webser:
рекомендуют обнулять так:
my @Special = ();

Но это программным средством. Но у меня на локальном сервере все работает и БЕЗ обнуления !!! Значит можно что-то изменить в НАСТРОЙКАХ Apache (httpd.conf) и не заморачиваться на обнуление.
Что скажите?

arto:
1. кто рекомендует?
   просто это 2 операции вместо одной.
2. возможно на локальном сервере у вас mod_cgi,  а удаленном -- mod_perl

Навигация

[0] Главная страница сообщений

[#] Следующая страница