Opened by Alter at 2008-04-06 21:46
User since
2008-02-27
67 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-02-27
67 Artikel
BenutzerIn
Schönen guten Abend,
also ich versuche mich gerade mit dem Modul FIND::File anzufreunden scheiter aber kläglich.
Das ist mein Code. Wenn ich diesen Ausführen möchte bekomme ich die fehlermeldung:
Was stimmt hier nicht? Kann mir einer Helfen?
Vielen Dank schon mal.
Gruß Alter....
also ich versuche mich gerade mit dem Modul FIND::File anzufreunden scheiter aber kläglich.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!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 @erg;
my $pfad = "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder";
find(\&wanted,$pfad);
sub wanted {
push @erg,$File::Find::name if $File::Find::name=~/\.jpg$/i;
}
print "Hallo";
Das ist mein Code. Wenn ich diesen Ausführen möchte bekomme ich die fehlermeldung:
Code: (dl
)
Undefined subroutine &main::find called at C:/xampp/cgi-bin/suchen_test.pl line 10.
Was stimmt hier nicht? Kann mir einer Helfen?
Vielen Dank schon mal.
Gruß Alter....
The only way to survive! Before and after the year 2000, 3000, 4000, ... and tomorrow, too! Linux forever