{{ ## ДО СЛЕДУЮЩЕЙ ПАРЫ ФИГУРНЫХ СКОБОК НИЧЕГО НЕ МЕНЯЙТЕ my ($day,$month,$year,$day2)=(localtime)[3..6]; if($day2 eq '1') {$day2 = 'Понедельник'} if($day2 eq '2') {$day2 = 'Вторник'} if($day2 eq '3') {$day2 = 'Среда'} if($day2 eq '4') {$day2 = 'Четверг'} if($day2 eq '5') {$day2 = 'Пятница'} if($day2 eq '6') {$day2 = 'Суббота'} if($day2 eq '0') {$day2 = 'Воскресенье'} if ($month < 10) { $month = '0'.($month+1) } if ($day < 10) { $day = '0'.$day } $OUT .= "

Сегодня $day2
$day.$month.${\($year+1900)}

"; ## gh hol sh smp bad hor $OUT .=''; foreach my $all (sort { $days{$a} cmp $days{$b} } keys %days){ my ($about, $day, $typ) = split('~', $all); my $year = $year+1900 - $1 if $day =~m|^(?:\d+?\.\d+?)\/(\d+)|; if ($year =~m|\w+1$|) {$year = "($year год назад)"} if ($year =~m`\w+(?:2|3|4)$`) {$year = "($year года назад)"} if ($year =~m`\w+(?:5|6|7|8|9|0)$`) {$year = "($year лет назад)"} $OUT .= qq``; } my $pr = ' :: '; $OUT .= '
$day$about$year
'; if($test eq 'back') { $OUT .= 'Неделю назад' } else { $OUT .= "Неделю назад" } $OUT .= "$pr"; if($test eq 'reality') { $OUT .= 'Reality' } else { $OUT .= "Reality" } $OUT .= "$pr"; if($test eq 'forward') { $OUT .= 'Неделю вперед' } else { $OUT .= "Неделю вперед" } $OUT .= '
'; $OUT .= "
Programming by mr bik (c) 2001
\n"; }}