путь надо прописать:
perl -M'lib "/home/user/html/www/cgi-bin/mods"' -e 'use Setup;'
Can't locate Setup.pm in @INC (@INC contains: /home/user/html/www/cgi-bin/mods /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at -e line 1.BEGIN failed--compilation aborted at -e line 1.
видел движок лав-планет.ру
название не помню... могу поспрашивать если надо
- левая панель делается на css3
- справа фотография меняется
- посмотреть исходники - там все сделано :D
т.е. блин, не так, а так:
ВРОДЕБЫ, КОРРЕКТНЫЙ ВАРИАНТ:
#!/usr/bin/perluse Data::Dumper;use POSIX;use strict;my @start_time = qw/26 07 2011 00 00 18/;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 {@start_time[0..2],[@start_time[3..5]]};my $unixtime = mktime( sub { @{$_[3]}, $_[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;} @t = reverse @t; for my $i ( 0 .. 19 ) { for ( 0 .. 19 ) { if ( %{ $str[$_]->[0] } ) { print join " - ", keys %{ $str[$_]->[0] }, values %{ $str[$_]->[0] }; push (@t, shift(@t)) if $_ > 0; print " " . $t[$_] . "\n"; } shift @{ $str[$_] }; } print "\n";}
ОПП: наследование (и множественное), полиморфизм, инкапсуляция
+ еще разных вещей и фокусов
почему about-company должен быть уникальный?
в таблицах может быть два примари ключа или без него
#!/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")
Работают только те, кто больше ничего не умеют делать...
© Оскар Уайльд
