1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
open (my $DH, "db1") or die $!; my @lines = <$DH>; chomp @lines; my $sql = 'select id from baer where mail like ?'; my $sth = $dbh->prepare( $sql ); for my $value (@lines) { # für like das Pattern in %% setzen $value = '%' . $value . '%'; $sth->execute( $value ) or die "execution failed: $dbh->errstr()"; my $id; while( ($id) = $sth->fetchrow() ) { # hier mehr deiner Befehle zur Weiterverarbeitung # .... } }