Thread FIND::File
(31 answers)
Opened by Alter at 2008-04-06 21:46
Du willst das auf dem Webserver laufen lassen, sehe ich das richtig?
Dann musst du auch in der Serverkonfiguration es so einstellen, dass der Server dein Bilderverzeichnis auch lesen kann. Code: (dl
)
1 Alias "/Meine Bilder/" C:/Eigene_Bilder/ Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 #!perl $| = 1; use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use CGI qw(param); use File::Find; my $modul_cgi = new CGI (-no_xhtml); my @erg; my $i = 1; my $pfad = q{C:/Eigene_Bilder/}; my $server_alias = q{/Meine Bilder/}; find(\&wanted,$pfad); sub wanted { my $u = $File::Find::name; if ($u=~/\.jpg$/i) { $u =~ s/$pfad/$server_alias/; push @erg,$u; } } print $modul_cgi->header(), $modul_cgi->start_html('Test'), $modul_cgi->img({-src=>"$erg[0]"}), $modul_cgi->end_html() Ein Webbrowser ist halt kein Dateisystembrowser. Dass es der IE trotzdem macht, liegt daran, dass bei Dateien im Dateisystem dann anstatt auf den Browser auf die Explorer-Komponente zugegriffen wird. |