ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Volkov                      2:5020/400     16 Apr 2003  02:23:31
 To : Roman Kirjanov
 Subject : Re: expand number with zero fill
 -------------------------------------------------------------------------------- 
 

 Доброе время суток, Roman.
 
 You wrote to All on Tue, 15 Apr 2003 19:21:29 +0000 (UTC):
 
 RK> Hello, All!
 
 RK> Hужно, например, мне время вывести. К примеру, "23:05:01". Как числа
 RK> минут и секунд расширить нулями ? sprintf расширяет пробелами ? Пока
 RK> пользуюсь самописной функцией:
 
 RK> sub expand($$$) {
 RK>     $_ = shift;
 RK>     my($pad, $dlength) = @_;
 RK>     return substr($pad x $dlength . $_, -$dlength);
 RK> }
 
 RK> Стандартными средствами такое возможно ?
 $h = 2; $m = 1; $s = 5;
 printf '%0.2i:%0.2i:%0.2i',$h,$m,$s;
 
 --
 Vladimir Volkov, at your service.  E-mail: vlad_volkov@vv.sovsem.net
 
 --- ifmail v.2.15dev4
  * Origin: Demos online service (2:5020/400)
 
 

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