Opened by Gast at 2003-09-24 11:14
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Wie schon gesagt, das ist ein Pfad auf dem Dateisystem und nicht vom Browser aus...
Wenn also die Eventmanager-Dateien in /home/tom/Eventmanager/ liegen, dann solltest Du in @directories auch /home/tom/Eventmanager eintragen. Hier sind Pfade gefordert, wie sie auf der Platte liegen...
Dein Code ist aber dafür ausgelegt, die Dateien auszugeben. Ich kenne mich mit File::Find auch nicht so aus, aber das hier ist zumindest ein Workaround...
\n\n
<!--EDIT|renee|1085840071-->
Wenn also die Eventmanager-Dateien in /home/tom/Eventmanager/ liegen, dann solltest Du in @directories auch /home/tom/Eventmanager eintragen. Hier sind Pfade gefordert, wie sie auf der Platte liegen...
Dein Code ist aber dafür ausgelegt, die Dateien auszugeben. Ich kenne mich mit File::Find auch nicht so aus, aber das hier ist zumindest ein Workaround...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
use File::Find;
my @directories = qw|/home/tom/Eventmanager/mysql/bilder/smilies|;
my @dateien = ();
print "Content-type: text/html\n\n";
find(sub {push(@dateien,$_)} ,@directories);
# mach was mit den Dateien
print scalar(@dateien)," Dateien gefunden!";
exit;
<!--EDIT|renee|1085840071-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/