Имею: 1051205505
Это дата в юникс-формате. Какой функцией Перл я могу сделать её нормальной датой?
>Имею: 1051205505
>Это дата в юникс-формате. Какой функцией Перл я могу сделать её нормальной
>датой?localtime
>>Имею: 1051205505
>>Это дата в юникс-формате. Какой функцией Перл я могу сделать её нормальной
>>датой?
>
>localtime
Спасибо, разобрался.
Другой вопрос: имеем дату 16.06.2003. Как мне её перегнать в юникс-формат? Перлом, естественно.
>Имею: 1051205505
>Это дата в юникс-формате. Какой функцией Перл я могу сделать её нормальной
>датой?Это дата в секундах, от начала 1970 года, возьми и пересчитай))
>>Имею: 1051205505
>>Это дата в юникс-формате. Какой функцией Перл я могу сделать её нормальной
>>датой?
>
>Это дата в секундах, от начала 1970 года, возьми и пересчитай))#!/usr/bin/perl
$time = localtime;
print "$time\n";
#!/usr/bin/perl###
# epoch2real
#
# This script converts EPOC to real time.
# We have to do this as several of our ATM
# awitches currently are only using EPOCH time.
#
# Submitted By: Robert Banniza - robert@rootprompt.net
use Time::localtime;while ($loop = 1) {
print "Enter a time in EPOCH: ";
$time = <STDIN>;
$tm = localtime($time);
printf("Dateline: d:d:d-d/d/d\n\n",
$tm->hour, $tm->min, $tm->sec, $tm->mon+1, $tm->mday, $tm->year+1900);
loop;
}
> printf("Dateline: d:d:d-d/d/d\n\n",
опа. должно быть:printf("Dateline: символ_процента02d:символ_процента02d:символ_процента02d-символ_процента02d/символ_процента02d/символ_процента04d\n\n",