[РЕШЕНО] дата в формате dd.mm.yy

[Валикос]

Всем доброго дня.
Такой вопрос, есть в перле модуль который возвращает дату в формате dd.mm.yyyy( например 10.12.2009, 15.01.1989)?
Я делаю таким образом:

Код:

sub getlocaldate{
	my ($day, $month, $year) = (localtime)[3,4,5];
	$month += 1;
	$year += 1900;
	
	if ($month <= 9){
		$month = "0$month";
	}
		
	return "$day.$month.$year";
};

Дата в формате dd.mm.yyyy нужна мне для работы с базой данной.
Хотелось бы найти надежное решение этой задачи.

[McZim]

http://search.cpan.org/~gbarr/TimeDate-1.16/lib/Date/Format.pm

[Валикос]

чудесно, нашел то что интересовало меня

Код:

#!/usr/bin/perl
use Date::Format;
print time2str("%d.%m.%Y", time), "\n";

[sergvg]

а чем не подходит strftime ?

use Posix;

print strftime ("%d.%m.%Y %H:%M:%S", localtime());