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

JEns
 2011-06-06 12:03
#149448 #149448
User since
2011-06-06
19 articles
BenutzerIn
[default_avatar]
Hallo ihr beiden,

ich danke euch, ja diese stupieden fehler waren es :(

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/usr/bin/perl 

#Einbinden nötiger Module
use File::Find::Rule::Age;
use strict;
use warnings;
use English;
use Getopt::Long;
use File::stat;
use vars qw($PROGNAME);
use lib "/usr/lib64/nagios/plugins";
my $pfad;
#local *DIR;
my @dateien = ();
my $pfadtotal = '';
my ($opt_c, $opt_f, $opt_w, $opt_p, $opt_n, $opt_r);
my @subdirs = ();


Getopt::Long::Configure('bundling');
GetOptions(
"p" => \$pfad, "pfad" => \$pfad,
"n" => \$opt_n, "Normal" => \$opt_n,
"r" => \$opt_r, "rekursive" => \$opt_r,
"w=f" => \$opt_w, "warning-age=f" => \$opt_w,
"c=f" => \$opt_c, "critical-age=f" => \$opt_c);

if ($pfad) {
$pfad = shift ;
}


#Verzeichnis lesen
#Rekursive
if ($opt_r) {
# find all the subdirectories of a given directory
my @subdirs = File::Find::Rule->directory->in( $pfad );
# Datei alter auslesen.i
foreach my $dir (@subdirs){
my @dateien = find( file => age => [ older => '1m' ], in => $dir );
}
}

#Normal
if ($opt_n) {

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

}

# Addition oder Rekursion fuer alle gelesenen
foreach my $datei (@dateien) {

print "FILE_AGE Critical: $datei is older than 1 Month \n";

}


Bissl bereinigt und es funktioniert, nur kriege ich durch das Print keine ausgabe unten, ads @dateien ist gef├╝llt, wenn ich es mir rausgeben lasse... bin verwirrt und ich will wieder zu meinem Java, ist viel toller ^^ aber bei weitem nicht so praktisch .... :(

View full thread Perl Verzeichnisse durchsuchen