ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5061/32      08 Jun 2001  10:55:46
 To : All
 Subject : Re: демон
 -------------------------------------------------------------------------------- 
 

 dr@citynet.kz <dr%citynet.kz@p21.f21.n5083.z2.fidonet.org> wrote:
 
 > sub get_time
 > {
 > (my $sec,my $min,my $hour,my $mday, my $mon,my $year,my $wday,my $yday,my
 > $isdst) = localtime($_[0]);
 > $year += 1900; $mon += 1;
 >  $sec = "0$sec" if (length($sec) < 2); $min = "0$min" if (length($min) < 2);
 > $hour = "0$hour" if (length($hour) < 2);
 >  $mday = "0$mday" if (length($mday) < 2); $mon = "0$mon" if (length($month) <
 > 2); $year = "0$year" if (length($year) < 2);
 > return "$year-$mon-$mday", "$hour:$min:$sec";
 > }
 >
 > зыж может кто-нибудь поможет чуть-чуть подправить get_time, чтоб оно
 > выглядело более элегантно. чувствую, что можно сделеть на регекспах, но
 > не знаю как реализовать условие 'меньше чем'
 
 sub get_time() {
   my $time=localtime(time());
   return(POSIX::strftime("%Y-%m-%d",$time),POSIX::strftime("%H:%M:%S",$time));
 }
 
 > -- 
 > ... WBR, Roman Hlynovski (dr@citynet.kz)
 
 -- 
 VP992-RIPE
 --- tin/1.5.8-20010221 ("Blue Water") (UNIX) (Linux/2.4.5-ac9 (i686))
  * Origin: Adamant ISP news server (2:5061/32.0)
 
 

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