Hilfe bei Fehlersuche [Archiv] - PHP-Scripte PHP-Tutorials PHP-Jobs und vieles mehr

Archiv verlassen und diese Seite im Standarddesign anzeigen :
Hilfe bei Fehlersuche

hwei

02-09-2003, 13:04

wer kann mir sagen wo der fehler liegt??????????????

#!/usr/bin/perl -w

use strict;

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

&printhead();

&processfiles();

&printtail();

my $curr = "F:\\Hardy\\Bilder\\Bund\\";

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
{
opendir(DIR, "$curr") or die "Verzeichnis kann nicht geöffnet werden\n";

my $file = "";

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

closedir(DIR);
}

sub printtail
{
print OUT "</BODY></HTML>\n";
close(OUT);
}

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);
}$curr $curr