ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander P. Russkih                 2:468/75       01 Apr 2004  07:42:04
 To : All
 Subject : Re: UPPER CASE
 -------------------------------------------------------------------------------- 
 

 Андрей Трусов wrote:
 
   > Да нет, не это. Как изменить длину строки в эхотаге ?
 > Т.е. есть $st="12345"; длина 5 символов. Как сделать эту строку длиной 4
 > символа ? Т.е. чтобы получилось $st="1234";
 
 хотя мне становится очень интересна как данная постановка относится к сабжу, 
 но тем не менее...
 вот два решения в одном флаконе:
 ===
 #!/usr/bin/perl -w
 use strict;
 use English;
 
 my $n = 4;
 my $st1 = "1234567";
 my $st2 = $st1;
 
 $st1 = substr($st1,0,$n);
 ($st2) = $st2 =~ /(.{$n})/;
 
 print "$st1\n$st2\n";
 ===
 
 для справки: вариант с $st1 работает в любом случае быстрее :-)
 
 -- 
 XMMS: 04 - 30 МЕФ
 
 --- Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031007
  * Origin: Registered Linux User #341226 (2:468/75@fidonet)
 
 

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