Редиректор на Perl, почему не работает?

Автор: defender Дата: 23.01.2007 06:50 Собственно для Сквида написал следующий редиректор
#!/usr/bin/perl
$0='redirect';
$|=1;
open (BASE, "<users&banners/banners.list";-);
@banners=<BASE>;
close (BASE);
chomp (@banners);
#@users=('ban1', 'ban2');
while (<>;-)
{
($url, $who, $ident, $method)=/^(\S+) (\S+) (\S+) (\S+)$/;
$url='http://bl4u.ru/empty.gif'
if grep ($url=~/$_/i, @banners);
print "$url $who $ident $method ";
}
Проблема в следующем: когда я читаю массив @banners из файла редиректор при запуске из Сквида не перенаправляет на нужный адрес (если найдена строка с адресом баннера). Когда этот же скрипт я запускаю вручную - все работает как надо, то есть выдается строка с замененным URL.
Если задавать массив в самом скрипте (см. заком. строку), все работает правильно в обоих случаях...

Пример файла banners.list:
ban1
ban2
Re: Редиректор на Perl, почему не работает? 23.01.2007 14:04nektofil Попробуй дать абсолютный путь к файлу banners.list
Re: Редиректор на Perl, почему не работает? 24.01.2007 06:46defender нет, дело не в этом - я проверял.....
Re: Редиректор на Perl, почему не работает? 24.01.2007 08:28defender пардон.... дело все-таки было в относительном пути....
мой глюк....
спасибо. тема закрыта.
RSS-материал