|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Pratch 2:5020/400 24 Aug 2000 19:33:28
To : All
Subject : Re: Как не терять нули?
--------------------------------------------------------------------------------
Vikentiy Trofimov <Vikentiy.Trofimov@p19.f9.n4614.z2.fidonet.org> пишет в
сообщении:967123101@p19.f9.n4614.z2.ftn...
> Привет All!
>
> Как устанавливать минимальное количество символов в числе?
> Хочется, чтобы в переменной было "01", а не "1"
> Hужно это для создавания файлов вида ДеньМесяц. Было было бы хорошо,
> если бы 1 января звучало как 0101, а не 11...
#!/usr/bin/perl
sub FillZeroLeft {
my($Number,$Digits)=@_;
$Number=substr("0"x$Digits, 1, $Digits-length($Number))."$Number";
return $Number;
}
print "Content-type: text/plain\n\n";
print FillZeroLeft 1,2;
--
С уважением,
Сергей Прач.
--------------------------------------------
Please send me your private mail message to s_pratch@mail.ru
--- ifmail v.2.15dev5
* Origin: Solver Ltd. site #2 (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
