Подпрограмма

[Alone]

попробуй так
eval "require \'файл.pl\'";
print $@;
должен вывести описание ошибки

[NeoNox]

Alone как мы уже выяснили, require у него проходит.

[DDHR]

Я тут кое-что выяснил: файл не создаётся если это:

open (FH, ">./debug") or warn "Can\'t open file: $!@";
print FH \'Done!\';
close FH;


написать не после require..., а после вызова подпрограммы из этого модуля:

название подпрограммы($cat); # я её так вызываю (причём в цикле)

вот здесь вобщем перестаёт работать!

[NeoNox]

покажи эту подпрограмму.

[DDHR]

sub cat($cat)
{
          $categories = $dbh->prepare("SELECT * FROM categories WHERE type=\'news\'")|| die "Can\'t prepare statement: $DBI::errstr";
          $categories->execute;

$end=0;

while(@row = $categories->fetchrow_array)
{

if($row[3] == $cat)
{
$end=1;
}

}

           $categories->finish;

undef @row;

if($end != 1)
{

          $categories = $dbh->prepare("SELECT * FROM categories WHERE type=\'news\'")|| die "Can\'t prepare statement: $DBI::errstr";
          $categories->execute;

while(@row = $categories->fetchrow_array)
{

if($row[2] == $cat)
{
$p=$row[1];
$l=$row[2];
}

}

           $categories->finish;
           @names=(@names,$p);
           @cats=(@cats,$l);

}
else
{

$l=$cat;

for ($i=0; $i<10; $i++)
{
$n=0;
          $categories = $dbh->prepare("SELECT * FROM categories WHERE type=\'news\'")|| die "Can\'t prepare statement: $DBI::errstr";
          $categories->execute;
while(@row = $categories->fetchrow_array)
{

if($n==0)
{
$n=0;
}

if($row[3]==$l)
{
$p=$row[1];
$l=$row[2];
@cats=(@cats,$row[3]);
@names=(@names,$row[4]);
$n=1;
}

}
          $categories->finish;

}
@cats=(@cats,$l);
@names=(@names,$p);
}







        @names=reverse @names;
        @cats=reverse @cats;

return (@cats);
}
1;

[NeoNox]

что вот это значит? sub cat($cat)
прочитай о прототипах и перепиши начало саба так (насколько я понял):
sub cat($)
{
$cat = $_[0];
...

[NeoNox]

Кстати, тебя использование use strict в своих скриптах как никого другого касается. Исправь это и лишишся головной боли.

[DDHR]

Да, вы правильно поняли. Тут я ошибся с оформлением..., переделал..., изменений нет. Она (осн. программа) как-будто перестаёт работать после вызова фунции.

[DDHR]

use strict в основной программе использую..., а в подпрограмме его тоже нужно писать?

[NeoNox]

угу. у тебя же здесь куча необьявленных данных.

[NeoNox]

пошли дальше. меняем все
|| die
на
or die
следующее, покажи основной скрипт.

[DDHR]

ВСЁЁЁЁ! УРА!!!! и Браво! :beer:  Вот ошибка:

Я то выборку из таблицы произвожу в подпрограмме, а подключение к БД не делаю (в самой же подпрограмме, а делаю только в основной)... хех... вот поэтому и не работало!

ОГРОМНОЕ Спасибо вам лично за помощь и потраченное на меня время!
_________
PS: а подключение к БД ведь можно в отдельную подпрограмму занести и вызывать в другой подпрограмме?

[NeoNox]

да, все зависит от желания

[DDHR]

Ну, тогда тема закрыта!