Forum Webscript.Ru

Программирование => Perl => Тема начата: Yaroslav от 10 Января 2007, 01:27:38

Название: почему не работает замена
Отправлено: Yaroslav от 10 Января 2007, 01:27:38

обьясните пожалуйста почему:

Код: [Выделить]


@row_ary=();
@row_ary=$dbh->selectrow_array("SELECT t.id, t.tema, p1.text, t.cat_id FROM ... ");
$row_ary[2] =~ s/(.{5}).*/$1/;

print $row_ary[2];

= больше 5 символов

Название: почему не работает замена
Отправлено: arto от 10 Января 2007, 02:30:17

perldoc -f substr

Название: почему не работает замена
Отправлено: Yaroslav от 10 Января 2007, 13:41:55

при чем тут substr?

я спрашивал про мой пример.
почем он не работает. когда этот же пример в другом виде
работает нормально:

Код: [Выделить]


$text=\'12 312 3145645464  6423131\';
$text =~ s/(.{5}).*/$1/;
print $text;

=12 31

Название: почему не работает замена
Отправлено: arto от 10 Января 2007, 13:57:03

вам шашечки, или ехать?
какие данные в $row_ary[2]?

Название: почему не работает замена
Отправлено: Yaroslav от 10 Января 2007, 15:49:48

и шашечки и ехать если можно :-)
там находится обычный текст

Название: почему не работает замена
Отправлено: arto от 10 Января 2007, 15:58:55

у меня работает.