- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1033 [644]
От : Rinat H. Sadretdinow 2:5020/400 31 октября 03, 00:33
Кому : eugene v. 01 ноября 03, 05:31
Тема : Re: Как посимвольно обработаь строку
-------------------------------------------------------------------------------
From: "Rinat H. Sadretdinow"
eugene v. wrote:
> foreach $i (1..length($a))
> но не работает.
Странно, весьма странно :)
#!/usr/bin/perl -w
use strict;
my $a = 'This is a text';
$a =~ s/(.)/$1z/g;
print "$a\n";
--
Пока!
--- ifmail v.2.15dev5
* Origin: SYS3175 (2:5020/400)