почему не работает замена

[Yaroslav]

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

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


@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]

perldoc -f substr

[Yaroslav]

при чем тут substr?

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

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


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

=12 31

[arto]

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

[Yaroslav]

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

[arto]

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