ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Diskin                        2:5061/7.97    08 Jun 2001  20:42:19
 To : dr@citynet.kz
 Subject : демон
 -------------------------------------------------------------------------------- 
 

 08 Jun 01 09:46, dr@citynet.kz wrote to All:
 
  d> sub get_time
  d> {
  d>  (my $sec,my $min,my $hour,my $mday, my $mon,my $year,my $wday,my
  d> $yday,my $isdst) = localtime($_[0]); $year += 1900; $mon += 1; $sec =
  d> "0$sec" if (length($sec) < 2); $min = "0$min" if (length($min) <
  d> 2); $hour = "0$hour" if (length($hour) < 2); $mday = "0$mday" if
  d> (length($mday) < 2); $mon = "0$mon" if (length($month) <
  d> 2); $year = "0$year" if (length($year) < 2);
  d>  return "$year-$mon-$mday", "$hour:$min:$sec";
  d> }
  d> ######################################################################
  d> #################
 
  d> зыж может кто-нибудь поможет чуть-чуть подправить get_time, чтоб оно
  d> выглядело более элегантно. чувствую, что можно сделеть на регекспах,
  d> но не знаю как реализовать условие 'меньше чем'
 use POSIX qw/strftime/;
 
 sub days { return $_[0] * 86400 }
 
 print strftime( "%d-%m-%Y,%H:%M:%S\n", localtime );
 print strftime( "%d-%m-%Y,%H:%M:%S\n", localtime(time - days( 22)));
 print strftime( "%d-%m-%Y,%H:%M:%S\n", localtime(time + days(180)));
 print strftime( "time: %H:%M date: %d/%m/%Y\n", localtime );
 print strftime( "%d%m%y\n", localtime );
 print strftime( "%S seconds\n", localtime );
 print int( strftime( "%S", localtime ) ), " seconds\n";
 
 и т.д.
 
 Dmitry
 
 --- GoldED+/W32 1.1.4.7
  * Origin: ююю dda@ic.ru ююю (2:5061/7.97)
 
 

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

Тема:    Автор:    Дата:    демон   dr@citynet.kz   08 Jun 2001 09:46:56   демон   Dmitry Diskin   08 Jun 2001 20:42:19