Thread Perl Script abfragen mit Inhalt von Datei (2 answers)
Opened by Goof120 at 2021-10-17 13:33

GwenDragon
 2021-10-18 12:47
#194030 #194030
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
Code (perl): (dl )
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
    # ....
  } 
}

https://metacpan.org/pod/DBI#Placeholders-and-Bind...

Wenn was unverständlich, dann schau mal in CPAN:DBI und frage hier auch.

//edit: ich weiß nicht wie du like verwenden willst, deswegen hab ich das oben nochmals geändert. Ich hoffe es stimmt so.
Last edited: 2021-10-18 15:20:15 +0200 (CEST)
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Perl Script abfragen mit Inhalt von Datei