ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     31 Jul 2000  22:53:50
 To : Michael Poliakov
 Subject : Re: date, time
 -------------------------------------------------------------------------------- 
 

 Michael Poliakov <polk@nis.nnov.su> wrote:
 
 >>> >Как получить и вывести текущую дату и время ?
 > Может, в FAQ занести?
 > sub time_stamp {
 >  my ($time) = @_;
 >  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
 >   localtime($time);
 >  $mon++;
 >  $year += 1900;
 >  my $stamp = sprintf("%02d.%02d.%04d %02d:%02d:%02d",
 >   $mday, $mon, $year, $hour, $min, $sec);
 
 Если заносить, то как-нибудь покомпактнее, пожалуйста (-:
 {
   my @w = reverse ( (localtime(time)) [0..5] );
   $w[0] += 1900; $w[1] ++;
   return sprintf "%d-%02d-%02d %02d:%02d:%02d", @w;
 }
 
 -- 
 Игорь Hиколаев
 --- ifmail v.2.12.os.sensi
  * Origin: Как получить? Как вывести текущую? (2:5030/266@fidonet)
 
 

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