Thread FIND::File (31 answers)
Opened by Alter at 2008-04-06 21:46

Alter
 2008-04-08 15:57
#108087 #108087
User since
2008-02-27
67 Artikel
BenutzerIn
[default_avatar]
GwenDragon+2008-04-08 10:09:00--
Die Bilder liegen aber eben nicht unter DOCUMENT_ROOT des Servers, oder?
Muss es aber, damit der Browser diese laden kann.

file:///C:/ ist der normale Zugriff für lokale Dateien im Dateisystem auf Laufwer C:, nicht für die Webseite.

Deswegen muss du ja file:// nehmen!


Also ich halte eigentlich nicht viel von aber kannst du mal den Code zeigen wie du es einbaun würdest damit es geht? Habe jetzt das Modul CGI.pm genommen.


Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!c:\perl\bin\perl.exe
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);
use File::Find;
#print "Content-type: text/html\n\n";
my $modul_cgi = new CGI;
my @erg;
my $i = 1;
my $pfad = "C:/Eigene_Bilder";
find(\&wanted,$pfad);

sub wanted {
push @erg,$File::Find::name if $File::Find::name=~/\.jpg$/i;
}
print $modul_cgi->header(),
$modul_cgi->start_html("Test"),
$modul_cgi->img({-src=>$erg[0]});
$modul_cgi->end_html();


Und wegen dem "streit" sollte nun geklärt sein oder?!..;)
The only way to survive! Before and after the year 2000, 3000, 4000, ... and tomorrow, too! Linux forever

View full thread FIND::File