#!/usr/bin/perluse Data::Dumper;use POSIX;use strict;my @start_time = qw/26 07 2011/;my @team = qw/ team1 team2 team3 team4 team5 team6 team7 team8 team9 team10 team11 team12 team13 team14 team15 team16 team17 team18 team19 team20/;sub a {return @start_time};my $unixtime = mktime( (0) x 3, sub { $_[0], $_[1]-1, $_[2]-1900 }->(a) );my @str;for my $t (@team) { push @str, [ map +{ $_ eq $t ? () : ( $t => $_ ) }, @team ];}my @t;for ( 0 .. 19 ) { $t[$_] = strftime "%a %b %e %H:%M:%S %Y", localtime $unixtime; $unixtime += 259200;}for my $i ( 0 .. 19 ) { for ( 0 .. 19 ) { if ( %{ $str[$_]->[0] } ) { print join " - ", keys %{ $str[$_]->[0] }, values %{ $str[$_]->[0] }; print " " . $t[$i] . "\n"; } shift @{ $str[$_] }; } print "\n";}
можно заплатить конторе, чтобы она скинула WMZ, т.е. чтобы скрыть себя и перевести деньги туда куда надо...
(наверное, как обычный перевод "Пополнить Webmoney")
Работают только те, кто больше ничего не умеют делать...
© Оскар Уайльд
Время - потеря денег... Оскар Уайльд
нету времени, пока :)
может по поже...
если человеку нравится тем чем он занимается, то он не отдыхает, а не работает
rtyug добавил 10.07.2011 в 01:29
можно найти работу где работают исключительно "интеллектуально", и это и есть та работа где ничего не надо делать :)
/ru/forum/600111
/ru/forum/429865
http://www.codingforums.com/
подобных тем было создано много...
...можно поиском воспользоваться...
вродебы делал это, попробую еще...
ЗЫ: короче, я попробую pf или я куплю роутер за 14-17$ и подклюсь так :) (я про это, что-то не подумал, что можно роутер купить)
ЗЫ2: может быть проблема из-за того что CURRENT или что ядро "ковырялось" и много разных опций стоит других...
Всем спасибо!
нет .
