Thread Perl Verzeichnisse durchsuchen (27 answers)
Opened by Jens at 2011-06-03 11:14

JEns
 2011-06-06 08:41
#149434 #149434
User since
2011-06-06
19 Artikel
BenutzerIn
[default_avatar]
Achso, das habe ich vergessen, ich arbeite im moment auf Linux RH5 sollte das sein.

Nachher soll das Skript per Nagios / SSh auf Windows Kisten ausgeführt werden :) ich hoffe das klappt *daumen drück*

SSOOOO Ich habe ein Problem mit dem Modul, ich geh jetzt den Ganzen Baum durch, freue mich des Lebens nur:
Code: (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
Can't stat age: No such file or directory
 at ./verz.pl line 48
Can't stat ARRAY(0xd4c8b00): No such file or directory
 at ./verz.pl line 48
Can't stat in: No such file or directory
 at ./verz.pl line 48
Can't stat $dir: No such file or directory
 at ./verz.pl line 48
Can't stat age: No such file or directory
 at ./verz.pl line 48
Can't stat ARRAY(0xd4c9130): No such file or directory
 at ./verz.pl line 48
Can't stat in: No such file or directory
 at ./verz.pl line 48
Can't stat $dir: No such file or directory
 at ./verz.pl line 48
Can't stat age: No such file or directory
 at ./verz.pl line 48
Can't stat ARRAY(0xd4c8ac0): No such file or directory
 at ./verz.pl line 48
Can't stat in: No such file or directory
 at ./verz.pl line 48
Can't stat $dir: No such file or directory
 at ./verz.pl line 48


Kann es sein, das es an den rechten liegt ? Ich war in einem Unterverzeichniss, da waren die berechtigungen nur auf rw-r--r-- gesetzt. Nach einem kleinen CHMOD auf 777 :D hat sich nicht viel geändert :(

Was mach ich Falsch ?

Achso der dazu passende Code abschnitt:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
if ($opt_r) {
# find all the subdirectories of a given directory
 my @subdirs = File::Find::Rule->directory->in( '.' );
# Datei alter auslesen.i
 my @dateien = find( file => age => [ older => '1M' ], in => '$pfad' );

 foreach my $dir (@subdirs){
$dir =" $pfad$dir";

 my @dateien = find( file => age => [ older => '1M' ], in => '$dir' );

}}




Update:

Wenn ich das auf ein kleineres Verzeichniss ausführe, kommt auch dieser Fehler:

Code: (dl )
Can't use string ("file") as a subroutine ref while "strict refs" in use at /usr/lib/perl5/5.8.8/File/Find.pm line 822.


Etwas ärgerlich.... :(
Last edited: 2011-06-06 08:51:24 +0200 (CEST)

View full thread Perl Verzeichnisse durchsuchen