Весной на работе попался на глаза плакат
Учись и путешесвуй в Перьм!
Правда, провисело это недолго — на следующий день заменили на исправленную версию.
Пара наблюдений относящихся к встроенной перловой функции localtime:
#!/usr/bin/perl
use POSIX qw( strftime );
my $SEC_PER_DAY = 24*60*60;
my $old_time = '';
for my $day ( -25567 .. 0 ) {
my @moment = localtime( $day * $SEC_PER_DAY );
my $time = strftime '%X', @moment; # HH:MM:SS
if ( $old_time ne $time ) {
printf
"%s %s\n",
strftime( '%x', @moment ),
$time;
$old_time = $time;
}
}
Результат неожиданный:
и не всегда понятный: если 04:02:33 ещё как-то можно объяснить — это время соответствует долготе 60,6375° в. д. — пара километров от нынешнего центра Екатеринбурга, то 03:45:05 откуда? Ближайший крупный город с долготой 56,2708° в. д. — Пермь. Что-то я сильно сомневаюсь, что в дореволюціонномъ Челябинске действовало пермское время.