В общем если substr($row->[0], 0, 39); заменить на my $y =

Question

Modern::Perl

Vyacheslav Olkhovchenkov

В общем если substr($row->[0], 0, 39); заменить на my $y =

$row->[0];
my $x = substr($y, 0, 39);
то всё работает
а теперь вопрос знатокам: что в черном ящике?

#perl #programming #russian

0

15.05.2024

6 ответов

8 просмотров

Vyacheslav Olkhovchenkov Автор вопроса

Andrey Smirnov / 𝓪𝓵𝓵𝓽𝓮𝓻 /
Не верю (c). Скорее всего, что-то ещё поменялось. ...

понятия не имею. это while(my $row = $sth->fetch()) {

0

17 дней назад

Andrey Smirnov / 𝓪𝓵𝓵𝓽𝓮𝓻 /

Vyacheslav Olkhovchenkov
понятия не имею. это while(my $row = $sth->fetch()...

А почему fetch, а не fetchrow_arrayref? Я уж забыл, чем fetch отличается. Может, конечно там какой-то перловый баг с побочными эффектами, но вряд ли на таком простом примере

0

17 дней назад

Vyacheslav Olkhovchenkov Автор вопроса

Andrey Smirnov / 𝓪𝓵𝓵𝓽𝓮𝓻 /
А почему fetch, а не fetchrow_arrayref? Я уж забыл...

Всегда так делаю. Твой кажется всю выборку сначала загружает потом возвращает реф. А тут по записям

0

17 дней назад

Warstone

Vyacheslav Olkhovchenkov
Всегда так делаю. Твой кажется всю выборку сначала...

Продолжайте так думать. В обоих случаях прилетит все.

0

17 дней назад