Приветствую! 2008/9/27 Serhiy Storchaka <[EMAIL PROTECTED]>: > San_Sanych wrote:
> > И остаётся открытым вопрос о вычислении разницы дат. Например: #/usr/bin/perl use strict; use warnings; use POSIX; my @time = localtime; my $today_unix_time = mktime(@time); my $today = localtime($today_unix_time); ($time[3], $time[8]) = ($time[3] + 10, 0); my $plus_10_days_unix_time = mktime(@time); my $plus_10_days = localtime($plus_10_days_unix_time); my $diff = floor(($plus_10_days_unix_time - $today_unix_time)/(60*60*24)); print "Today: $today\n+10 Days: $plus_10_days\nDiff: $diff days\n"; [EMAIL PROTECTED]:~$ perl date.pl Today: Wed Oct 1 11:26:37 2008 +10 Days: Sat Oct 11 11:26:37 2008 Diff: 10 days -- Best regards, Oleg Gashev.
