#!/usr/bin/perl -w

use strict;

my $Verzeichnis = "/usr/web/ars_vivendi";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);
foreach(@Dateien) {
 if($_ =~ /.+\.txt*/) {
   open "$_";
   }
};

my $Verzeichnis = "/usr/web/ars_vivendi";
opendir(my $dh, $Verzeichnis) || die "$Verzeichnis: $!";
while(my $filename = readdir($dh)) {
   if($filename =~ /.+\.txt*/) {
      my $fullpath = "$Verzeichnis/$filename";
      open(my $fh, $fullpath) or die $!;
      # mach was
      close $fh;
  }
}
closedir($dh); # nicht vergessen

my $string = #07082005';
my ($day,$month,$year) = $string =~ /(\d{2})(\d{2})(\d{4})/;
print $year,"-",$month,"-",$day,"\n";

my $datsplit1 = substr($datum, 0, 2);
my $datsplit2 = substr($datum, 2, 2);
my $datsplit3 = substr($datum, 4, 4);
my $datumfixed = '$datsplit3',"-",'$datsplit2',"-",'$datsplit1';
my $sql = "INSERT INTO log SET log_datum='$datumfixed'";

my ($datum, $zeit) = split(';',$line);

my $sql = "INSERT INTO log SET log_datum_zeit='$datum $zeit'";

#!/usr/bin/perl -w

use strict;

my $Verzeichnis = "/usr/web/ars_vivendi";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);

foreach(@Dateien) {
  if($_ =~ /\.txt$/) {
    open(my $fh,"$_") or die $!;
    # mach was
    close $fh;
  }
}