Perl Script abfragen mit Inhalt von Datei (Datenbanken und Verzeichnisdienste)

[thread]21369[/thread]

Perl Script abfragen mit Inhalt von Datei

Tags: perl5 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+3 replies
Gast Goof120

2021-10-17 13:33

Hi,

so ich stolpere mal wieder

ich habe eine sql abfrage in meinem perl script

z.b :

select id from baer where mail ilike %google.% or email ilike %Hans.com

so jetzt wird mir das aber zu viel und ich will das mein "where mail .... $mail " nimmt.

also ich hab eine Textdatei hier stelle ich untereinander meine Emailadresse rein die er finden soll.

soweit so gut, aber wie mache ich das das er alle nacheinander durcharbeitet ?

Textdatei:

mail1@1.de
mail2@2.de
mail3@3.de
mail4@4.de

denke ich brauch eine Schleife aber wo und wie füge ich die ein?
Last edited: 2021-10-17 17:38:28 +0200 (CEST)
- +2 replies
- Gast Goof120
  
  2021-10-17 18:39
  
  open (DATEI, "db1") or die $!;
  while(<DATEI>){
  $daten = $daten.$_;
  }
  
  Denkfehler von mir drin....gewesen es scheiterte ehr an den Komas ;)
  
  danke trotzdem
  Last edited: 2021-10-17 19:37:11 +0200 (CEST)
  - GwenDragon
    
    2021-10-18 12:47
    User since
    2005-01-17
    14875 Artikel
    Admin1
    
    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 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 Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2021-10-17 13:33.