Moin Jens, habe ein ähnliches Problem, aber nicht genau was Du suchst. Jedenfalls kann es Dir einige Anstösse geben, es ist bestimmt recht schlampig programmiert. Wäre schön wenn Ihr mir Fehler $ Vorschläge per PM mail senden würdet.(OT!) Vielleicht hilft es ein wenig. JaPH rookie Ciao Andre ------------------------------------------------------ #!/usr/bin/perl -w # # Andre Heine # Verzeichnisse lesen & Verarbeiten;) # v0.5.0 alpha opendir (DIR,$dir) or die $!; while (@files=readdir(DIR)) { foreach $filename (@files) { next if $filename=~ /^\.\.?$/; if ($filename=~ /\.txt/) { open (TXT,"/$dir/$filename") or die $!; while (<TXT>) { $tabletxt.=$_; } close TXT; if ($tabletxt ne "") { @txt= split(/#/,$tabletxt); } } } } closedir(DIR); opendir (DIR,$dir) or die $!; while (@pics=readdir(DIR)) { foreach $gfx (@pics) { next if $gfx=~ /^\.\.?$/; if ($gfx=~ /\.JPG/) { for ($i = 0; $i <= 4; $i++) { $html.= Tr(td($pics[$i]),td($txt[$i])); } } } } closedir(DIR); --------------------------------------------