- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1034 [644]
От : Denis Knyazev 2:5059/9.27 31 октября 03, 00:02
Кому : eugene v. 01 ноября 03, 05:31
Тема : Как посимвольно обработаь строку
-------------------------------------------------------------------------------
Хаюшки, eugene!
Было <Четверг Октябрь 30 2003>, когда я прочитал что eugene v. пишет к All
ev> Допустим есть строка
ev> $a="This is text".
ev> Hужно допустим после каждой буквы поставить букву "z"
ev> я делаю
ev> foreach $i (1..length($a))
ev> {
ev> print $a[$i];
ev> print "z";
ev> }
ev> но не работает.
ev> ЗЫЖ Мне это нужно для примера, не понимаю почему не работате :(
Во-1х, сразу отучайся использовать в перле скаляры
с именами $a и $b -- они зарезервированны для sort-a.
Во-2х, в перле для обработки строк есть регулярные
выражения. Что значительно удобнее. Hапример так:
$line =~ s|(.)|$1z|g;
(если я только в шаблоне ничего не перепутал)
WBR, Denis.
.:
[#m:tg#] [#rpg#] [#gothic#] [#folk#] [#black#]
email: denizen[at]nm.ru ICQ UIN: 99806075
... vampiric touch заряжает меня энергией на весь день !!
--- Hекромансер - не профессия. Это даже не образ мышления. Это - РАСА.
* Origin: Банальнейший артефакт (2:5059/9.27)