#!/usr/bin/perl

use strict;
use warnings;

use File::Find;
use DBI;

# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || 'C:\xampp'; 

# Array für die gefundenen Dateien
my @dateien; 

# Routine, die Dateien findet
sub wanted { 
  push @dateien,$File::Find::name    # schiebe Dateinamen in Array
    if $File::Find::name ne "."      # wenn Datei ist nicht aktuelles Verzeichnis
    and $File::Find::name ne ".."    #      Datei ist nicht übergeordenetes Verzeichnis
    and -f $File::Find::name;        #      Dateiname ist eine Datei     
}
# Suche nach Dateien starten
find(\&wanted,  $verzeichnis); 

my $datenbank = 'auslesen';  # Name der MySQL-Datenbank
my $tabelle = 'aktuellelage';         # Name der Tabelle in der DB
my $spaltenname = 'Name';   # Name der Spalte in der Tabelle

my $dsn = "dbi:mysql:database=$datenbank;host=localhost";

# zu Datenbank verbinden
my $dbh =  DBI->connect( $dsn, "root", "password", { RaiseError => 1 } );

# SQL vorbereiten
my $sth = $dbh->prepare( q{INSERT INTO ? (?) VALUES (?);} );

# in Schleife Dateinamen aus Array holen
for my $dateiname (@dateien) {
  # und SQL ausführen und Daten in Datenbank schreiben
  $sth->execute($tabelle, $spaltenname, $dateiname);
}

# von Datenbank abmelden
$dbh->disconnect();

1;