SQL Ergebnisse in Textdatei (Datenbanken und Verzeichnisdienste)

[thread]15351[/thread]

SQL Ergebnisse in Textdatei

Leser: 21

Articles: hide open all | hide show old branches

+3 replies
Gast Nils

2010-08-06 11:12
Hallo!
Ich habe mit einem Makro einen SQL Befehl durchgeführt und möchte die Ergebnisse (in diesem Fall alles aus der Tabelle in t_mitarbeiter). Ich möchte die Ergebnisse nun in einer Textdatei speichern, weiß aber nicht wie (probier habe ich es schon siehe Quelltest)
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

use warnings; use strict; use DBI; my $datenbank = "mitarbeiterdaten"; my $host = "localhost"; my $dsn = "DBI:mysql:database=$datenbank;host=$host"; my $benutzer = "root"; my $passwort = "66666"; my $dbhandle = DBI::->connect( $dsn, $benutzer, $passwort) or die DBI::errstr; my $sql = qq(SELECT * FROM t_mitarbeiter); my $sth = $dbhandle->prepare($sql) or die $dbhandle->errstr; $sth->execute or die $sth->errstr; open(OUT, ">D:\\SQL_INHALT.txt"); print OUT $sth; close(OUT);
edit renee: code-Tags eingefügt.
Last edited: 2010-08-06 11:29:10 +0200 (CEST)
- renee
  
  2010-08-06 11:35
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Statt
  
  Code (perl): (dl )
  
  1 2 3
  
  open(OUT, ">D:\\SQL_INHALT.txt"); print OUT $sth; close(OUT);
  
  musst Du in einer Schleife die Ergebnisse holen und in die Datei schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  open my $out, ">", "D:\\SQL_INHALT.txt" or die $!; while ( my @row = $sth->fetchrow_array ) { print $out join ";", @row; } close $out;
  
  Du musst Dir halt noch überlegen, wie die Daten aussehen sollen, wenn sie in die Datei geschrieben werden. Hier habe ich die einzelnen Felder einfach mit ";" getrennt.
  
  Noch eine Anmerkung zu Deinem open: Du solltest unbedingt Fehlerbehandlung machen. Was, wenn die Datei nicht geöffnet werden kann? Es ist auch praktischer, lexikalische Filehandles zu nehmen (siehe auch diesen Artikel).
  
  Mehr zu dem 3-Arg-Open findest Du unter http://reneeb-perlblog.blogspot.com/2009/09/versch...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- Linuxer
  
  2010-08-06 15:19
  
  User since
  2006-01-27
  3872 Artikel
  HausmeisterIn
  
  und wieder mal ein Crosspost: http://www.perlboard.de/cgi-bin/perlboard.pl?actio...
  
  Bitte lesen:
  AllgemeinesWieFrageIchbeiPerlCommunity#10_Gleiche_Fragen_in_anderen_For
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2010-08-06 11:12.