Минимализм в название переменных

 1
 2
 3
 4
 5
 6
 7
 8
 9
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;