ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Mahotkin                      2:5020/400     16 Apr 2003  00:03:39
 To : "Roman Kirjanov"
 Subject : Re: expand number with zero fill
 -------------------------------------------------------------------------------- 
 

 >>>>> "RK" == Roman Kirjanov <meister@sinn.ru> writes:
 
  RK> Hello, All!  Hужно, например, мне время вывести. К примеру,
  RK> "23:05:01". Как числа минут и секунд расширить нулями ? sprintf
  RK> расширяет пробелами ? Пока пользуюсь самописной функцией:
 
  RK> sub expand($$$) { $_ = shift; my($pad, $dlength) = @_; return
  RK> substr($pad x $dlength . $_, -$dlength);
  RK> }
 
  RK> Стандартными средствами такое возможно ?
 
 use POSIX qw(strftime);
 my $date = strftime("%H:%M:%S", gmtime());
 
 --alexm
 --- ifmail v.2.15dev4
  * Origin: tyranny (2:5020/400)
 
 

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