Hilfe bei Fehlersuche

**hwei** · 02.09.2003, 13:08

nachtrag:

sorry skriptbeschreibung

damit soll man viele bilder online stellen können

es soll eine html datei erstellen - geht
die dateien aus dem verzeichnis als verknüpfung dort mit ablegen - geht nicht

**hwei** · 02.09.2003, 14:40

hier war der fehler $curr.$file die genaue pfadangabe fehlte hätte aber auch ohne funktionieren sollen

#!/usr/bin/perl -w

use strict;

use Cwd;

open(OUT, ">index.html") or die "Index-Datei kann nicht geöffnet werden: $!\n";

&printhead();

&processfiles();

&printtail();

sub printhead
{
print OUT "<HTML>\n<HEAD>\n";
print OUT "<TITLE>Bilddateien aus dem Verzeichnis </TITLE>\n";
print OUT "</HEAD>\n<BODY>\n";
print OUT "<H1>Bilddateien</H1>\n";
}

sub processfiles
{
my $curr = 'F:\\Hardy\\Bilder\\Bund\\';

opendir(DIR, "$curr") or die "Verzeichnis kann nicht geöffnet werden\n";

my $file = "";

while ( defined($file = readdir(DIR) ) )
{
if( -f $curr.$file and $curr.$file =~ /(\.gif|\.jpeg|\.jpg|\.jpe)$/i )
{
print OUT "<A HREF=\"$curr$file\">$file</A><BR>\n";
}
}

closedir(DIR);
}

sub printtail
{
print OUT "<H1>Bilddateien ende</H1>\n";
print OUT "</BODY></HTML>\n";
close(OUT);
}[COLOR=red]$curr[/COLOR] $curr

Hilfe bei Fehlersuche