ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Spector                      2:400/506.12   01 Nov 2003  19:45:48
 To : eugene v
 Subject : Как посимвольно обработаь строку
 -------------------------------------------------------------------------------- 
 

 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор