Community  »  Perl/CGI: Scripts des Perl-Archiv

Dateiname auslesen und Daten in Access-Datenbank laden	Seitenanfang
Ich habe noch ein Problem: Der Dateiname ist immer wie folgt aufgebaut: "yyyy-mm-tt-sel-sp-detail-bezeichnung.csv" oder . Die Dateien sollen in eine Access-Datenbank gelesen werden. Dabei muss der Selektor (sel) mit übergeben werden und die Spezifikation (sp). Dies steht immer an der selben Stelle im Dateinamen. Wie kann ich dies auslesen und speichern? Es gibt in der DB eine "Auffangtabelle" wo erstmal alles importiert werden soll + der Selektor und die Spezifikation aus dem Dateinamen. Wie starte ich die Übernahme der Daten in die Datenbank? Vielen Dank für die Hilfe!! Datum: 12.01.2009-09:05
re: Dateiname auslesen und Daten in Access-Datenbank laden	Seitenanfang
my $filename="yyyy-mm-tt-sel-sp-detail-bezeichnung.csv"; # Teilen des Dateinamens an '-' -> Liefert Liste # (Liste)[index1,index2] ist ein Arrayslice und # liefert die Elemente aus der Liste my ($sel,$sp) = (split /-/, $filename)[3,4]; print "Sel: $sel -> SP: $sp\n"; Für die Datenbank-Verbindung solltest Du das Modul DBI (siehe http://search.cpan.org) mit dem DBD::ODBC-Treiber verwenden. use DBI; my $verbindung = DBI->connect( "DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb); dbq=Datenbankname") or die $DBI::errstr; my $insert = "INSERT INTO tabelle VALUES(...)"; $verbindung->do( $insert ); Bei Arbeiten mit der Datenbank solltest Du die ?-Schreibweise von DBI verwenden - wegen der Sicherheit... Siehe DBI-Doku auf CPAN und/oder http://foo-magazin.de/download.cgi?issue=10 Datum: 12.01.2009-11:56
re: Dateiname auslesen und Daten in Access-Datenbank laden	Seitenanfang
Vielen lieben Dank! Jetzt muss ich nur noch raus finden wie ich den Schreibzugriff auf die Datenbank realisiere. Kann dazu mir jemand einen Tip geben? Datum: 13.01.2009-13:52
re: Dateiname auslesen und Daten in Access-Datenbank laden	Seitenanfang
Was meinst Du damit?? Ich habe Dir doch ein Beispiel für die Arbeit mit der Datenbank gegeben. Hier kannst Du etwas über die allgemeinen Sachen von "Perl und Datenbanken" nachlesen (in eins oder zwei Listings hat sich aber der Fehlerteufel eingeschlichen): http://foo-magazin.de/download.cgi?issue=6 . Das ist zwar mit MySQL erklärt, aber dank DBI macht das keinen großen Unterschied. Du musst nur den Datenbank-Treiber austauschen (siehe auch meinen vorigen Beitrag). Datum: 13.01.2009-15:46