Start implementing anonDB.pl

This commit is contained in:
Jan Eitzinger 2019-05-09 07:18:28 +02:00
parent e81afc84ab
commit 6b26f8b4e9

View File

@ -75,10 +75,17 @@ my %row;
$sth_select_all->bind_columns( \( @row{ @{$sth->{NAME_lc} } } ));
while ($sth_select_all->fetch) {
print "$row{job_id}\n";
my $user_id = $row->{'user_id'};
if ( not exists $user_lookup{$user_id}) {
print "New user $user_id\n";
$user_index++;
$user_lookup{$user_id} = $user_index;
}
}
exit;
opendir my $dh, $basedir or die "can't open directory: $!";
while ( readdir $dh ) {