Dateiliste einlesen, verarbeiten, in Mysql: Rokkie halt.. - #57034 (Allgemeines zu Perl)

esskar

2005-08-01 01:27

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

in $_ steht nur der dateinamen drin; du musst das verzeichnis noch angeben; und du musst nicht alle dateien in eine array lesen, sondern kannst einfach jede nach einander abarbeiten; außerdem musst du auspassen, dass du nicht "." und ".." versuchts zu öffnen (aber ich das maschst du ja nicht wegen deines regexp, sehr schön)

Code: (dl )

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