- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1036 [644]
От : eugene v. 2:5025/245.1 31 октября 03, 03:57
Кому : Rinat H. Sadretdinow 01 ноября 03, 05:31
Тема : Как посимвольно обработаь строку
-------------------------------------------------------------------------------
@Location: Воронеж, Россия
@Realname: Мязин Евгений Вячеславович, 21год
Hi Rinat.
>> foreach $i (1..length($a))
>> но не работает.
R> Странно, весьма странно :)
R> #!/usr/bin/perl -w
R> use strict;
R> my $a = 'This is a text';
R> $a =~ s/(.)/$1z/g;
R> print "$a\n";
так и я могу мне бы посимвольно.
вообщем решение найдено
while(split(//))
{
print;
print "z";
}
\\ Евгений
--- 03:57 31 Окт 03 г.
* Origin: HNN (2:5025/245.1)