- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
$minfts = $maxfts = undef;
$c=$l=$x=$z=0;
while (($id, @a) = $sth->fetchrow_array) {
$l++;
next unless defined($t{$a[1]});
$c++;
$s{$id} = [$r, $id, @a];
$x++ if $s{$id}{rc} && !$s{$id}{rm};
$z++ if $s{$id}{rm};
$s{$id}{t} = $t{$s{$id}{tid}};
$s{$id}{bonuses} = 0;
push @{$sid{$s{$id}{sid}}}, $id;
### PATCH3 ###
$sid2pid{$s{$id}{sid}} = $s{$id}{id2};
### END PATH3 ###
$minfts = $s{$id}{sd} if !defined($minfts) || $s{$id}{sd}<$minfts;
$maxfts = $s{$id}{ed} if !defined($maxfts) || ($maxfts && $s{$id}{ed}>$maxfts) || !$s{$id}{ed};
}
$sth->finish;
$l-=$c;
И в использовании VCS видимо тоже минимализм...
Автору кода -- пальцы под косяк двери и закрыть.
>> ### END PATH3 ###
Видимо, его руки под косяком уже побывали.
бусинки!
А что же делать? Добавить заглавные буквы?
это еще без русских
Теперь нужно написать хэш-функцию, которая из длинного названия переменной генерирует трёхсимвольное.
1 - если в переменной больше 1 заглавной - используем первые три заглавные (или две)
2 - если меньше 2 заглавных - первые 3 солгасные