forum.lissyara.su

Код: Выделить всё

# perl -MPOSIX -e 'print mktime((0)x3, sub { $_[3],$_[4]+1,$_[5] }->(localtime))'
1307484000

Код: Выделить всё

 perl -MPOSIX -e 'print time-mktime((0)x3, sub { $_[3],$_[4],$_[5] }->(localtime))'

Код: Выделить всё

serv3# /root/scripts/stat/get.resource.usage.pl
Undefined subroutine &main::mktime called at /root/scripts/stat/get.resource.usage.pl line 25, <MYTMP> line 4276.
serv3# 

Код: Выделить всё

serv3# grep mktime /root/scripts/stat/get.resource.usage.pl
        $num_seconds = (time-mktime((0)x3, sub { $_[3],$_[4],$_[5] }->(localtime)));
serv3# 

Код: Выделить всё

use POSIX;

Код: Выделить всё

$num_seconds = (
          time -                                              # из теккущего timestamp вычитаем 
          mktime(                                             # другой timestampб вероятно на начало текущих суток
                 (0)x3,                                       # особоая, чорная перловая магия
                 sub { $_[3], $_[4], $_[5] }->(localtime)     # тут вероятно идет извлечение из полученой даты вида Yr Mo Dy Hr Mn Sc последних трех составляющих - текуих часов, мин и секунд. скорее всего задается прям сразу процедура-обработчик для возвращаемого значения. возвращается массив, на обработчик он поступает как $_, и из него последние три элемента выкорчовываем
          ) # mktime
);

Код: Выделить всё

sub { $_[3], $_[4], $_[5] }->(localtime)

Код: Выделить всё

use POSIX qw(strftime);
strftime("%Y-%m-%d", localtime)

Код: Выделить всё

h*3600 + m*60 + s

Код: Выделить всё

$date = explode(":", date("h:i:s"));
$seconds = $date[0] * 3600 + $date[1] * 60 + $date[2];

Код: Выделить всё

#! /usr/local/...../php-cgi
<?php
list($h, $i, $s) = explode(":", date("h:i:s"));
echo $h * 3600 + $i * 60 + $s
?>

Код: Выделить всё

#!/usr/bin/perl
...
$secs=`seconds.php`
...

Код: Выделить всё

#!/usr/bin/perl
...
$secs=`/bin/date ...`
...

Код: Выделить всё

my ($sec,$min,$hour,$mday,$mon,$year, $wday,$yday,$isdst) = localtime time;
my $seconds = $hour*3600 + $min*60 + $sec;

Код: Выделить всё

perl -e 'print sub { $_[0]+$_[1]*60+$_[2]*3600 }->(localtime);'