- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1032 [644]
От : eugene v. 2:5025/245.1 30 октября 03, 13:57
Кому : All 01 ноября 03, 05:31
Тема : Как посимвольно обработаь строку
-------------------------------------------------------------------------------
@Location: Воронеж, Россия
@Realname: Мязин Евгений Вячеславович, 21год
Hi All.
SUBJ
Допустим есть строка
$a="This is text".
Hужно допустим после каждой буквы поставить букву "z"
я делаю
foreach $i (1..length($a))
{
print $a[$i];
print "z";
}
но не работает.
ЗЫЖ Мне это нужно для примера, не понимаю почему не работате :(
\\ Евгений
--- 13:58 30 Окт 03 г.
* Origin: HNN (2:5025/245.1)