- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1069 [644]
От : Michael Spector 2:400/506.12 01 ноября 03, 18:45
Кому : eugene v 03 ноября 03, 23:37
Тема : Как посимвольно обработаь строку
-------------------------------------------------------------------------------
Hello eugene!
30 Oct 03 13:57, you wrote to All:
ev> Hi All.
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> но не работает.
$a =~ s/(\w)/$1z/g;
Michael
--- GoldED/LNX 3.0.1
* Origin: ----> GoldED 3.0.1 <---- (2:400/506.12)