- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3073 [502]
От : ilya voronin 2:5020/400 31 марта 04, 04:19
Кому : "Андрей Трусов" 31 марта 04, 23:32
Тема : Re: UPPER CASE
-------------------------------------------------------------------------------
From: ilya voronin
In article , Андрей Трусов wrote:
> Hi !
>
>>ага - а в догонку - perldoc locale ибо навернякая следующим будет вопрос,
> на
>>тему, как строку русских символов в сабж перевесть:).
> Да нет, не это. Как изменить длину строки в эхотаге ?
> Т.е. есть $st="12345"; длина 5 символов. Как сделать эту строку длиной 4
> символа ? Т.е. чтобы получилось $st="1234";
>
Первое что приходит в голову:
$string = "12345";
$string =~ /^(.{4})/;
$string = $1;
--
ilya voronin
--- ifmail v.2.15dev5.3
* Origin: Sun.net Internet News Server (2:5020/400)