|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Boris R. Bondarchik 2:5020/400 10 Aug 2002 13:37:23
To : Oleg Plotnikov
Subject : Re: Как сконвертить в нормальную дату?
--------------------------------------------------------------------------------
Hello, Oleg!
You wrote to Artem Chuprina on Fri, 09 Aug 2002 13:31:32 +0400:
AC>> Если ты расскажешь, какой вид ты считаешь нормальным, получишь
AC>> ответ.
AC>> Ишь, unixtime ему ненормальный формат...
OP> Hу какой какой, обычную Джулианскую :) 03 Jan 2002 или такую, не
OP> помню как такой формат называется, европейский чтоль что-то такое,
OP> 02-03-2002 и т.п. Hу думаю понятно :)
С ходу, что можно придумать:
--cut--
#! /usr/bin/perl -w
sub d2s (@) {
my ($day,$month,$year) = @_;
$month++; $year += 1900;
$year."/".$month."/".$day
}
print d2s((localtime((stat "test.txt")[9]))[3,4,5]);
--cut--
--
WBR, Boris R. Bondarchik
mailto:home@sbor.ru
--- ifmail v.2.15dev5
* Origin: Private Person (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
