while (<USERS>) {
s/\|/\e/g; s/\\\e/\|/g;
- split(/\e/, $_, $27);
- $total++; $STATUS{$_[7]}++;
- if ($_[7] != 3) { $classtotal++; $CLASS{$_[9]}++; }
- if ($_[7] == 1) { $CLASSA{$_[9]}++; }
- if ($_[7] == 1 || $_[7] == 6) { $pototal++; $POTYPE{$_[25]}++; }
+ split(/\e/, $_, 28);
+ $total++; $STATUS{$_[8]}++;
+ if ($_[8] != 3) { $classtotal++; $CLASS{$_[10]}++; }
+ if ($_[8] == 1) { $CLASSA{$_[10]}++; }
+ if ($_[8] == 1 || $_[8] == 6) { $pototal++; $POTYPE{$_[26]}++; }
}
close(USERS);