ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Gorbanev                       2:5057/19.20   25 Aug 2000  01:54:14
 To : "Sergey Pratch"
 Subject : Re: Как не терять нули?
 -------------------------------------------------------------------------------- 
 

 
 On Thu, 24 Aug 00 18:33:28 +0500, Sergey Pratch wrote:
 
 >> Как устанавливать минимальное количество символов в числе? Хочется,
 >> чтобы в переменной было "01", а не "1" Hужно это для создавания файлов
 >> вида ДеньМесяц. Было было бы хорошо, если бы 1 января звучало как 0101,
 >> а не 11...
 
  SP> sub FillZeroLeft {
  SP>     my($Number,$Digits)=@_;
  SP>     $Number=substr("0"x$Digits, 1, $Digits-length($Number))."$Number";
  SP>     return $Number;
  SP> }
  SP> print "Content-type: text/plain\n\n";
  SP> print FillZeroLeft 1,2;
 
 да вы что, сговорились? мало того, что в акваланге, еще и в гамаке. вот и
 Курт орет - denial полный, блин :) бегом читать perldoc perlfunc, и пока
 все не прочтете, воздержитесь от подобных советов.
 
 p.s. на всякий случай: sprintf
 
 -- 
 RnD[.]            [ Nevermind / Smells Like Teen Spirit ]
 
 GCS d- s+:- a-- C++++ UBL+++ P+++ L++ E(++) W+(++) N++@+ o? K-
 w O M- V PS+ PE Y PGP- t- 5 X R- tv b+ DI-- D++ G++ e- h! r y**
 --- tin/1.5.5-20000729 ("Laetitia") (UNIX) (Linux/2.2.13-18abit (i586))
  * Origin: dark tower (2:5057/19.20)
 
 

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