|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1978.3 21 Oct 2000 22:16:31
To : Vadim Solomko
Subject : Re: как строку дополнить
--------------------------------------------------------------------------------
Юґullo Vadim!
VS> что-то не соображу,
VS> есть куча чисел 123, 22, 333, 5555 ...
VS> нужно их привести к 7-ми знаковому виду, дополнив нулями т.е.
VS> 0000123, 0000022, 0000333, 0005555 ...
VS> подозреваю, что регэкспами это делается элементарно, но что-то ничего
VS> на ум не приходит ...
А оно надо, ну, регэкспами? Тогда можно так:
@a = (123, 22, 333, 5555);
@b = map {while(s/^(\d{1,6}$)/0$1/) {} $_} @a;
print join ',', @b;
Хотя лучше все-таки без них:
...
@b = map {sprintf "%07d", $_} @a;
...
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1978.3 ДДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/1978.3)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
