ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  25 Aug 2000  10:45:05
 To : sltoopls@kot.poltava.ua
 Subject : Re: Как не терять нули?
 -------------------------------------------------------------------------------- 
 

 >>     Как устанавливать минимальное количество символов в числе?
 >>     Хочется, чтобы в переменной было "01", а не "1"
 >>     Hужно это для создавания файлов вида ДеньМесяц. Было было бы хорошо,
 >>     если бы 1 января звучало как 0101, а не 11...
 
 skpu> #!/usr/bin/perl
 
 skpu> sub FillZeroLeft {
 skpu>     my($Number,$Digits)=@_;
 skpu>     $Number=substr("0"x$Digits, 1, $Digits-length($Number))."$Number";
 skpu>     return $Number;
 skpu> }
 
 skpu> print "Content-type: text/plain\n\n";
 skpu> print FillZeroLeft 1,2;
 
 И тебе man printf. Причем немедленно. Изобретатель велосипедов... С
 треугольными колесами...
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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