Opened by Duff at 2006-12-09 16:19
User since
2006-10-06
283 Artikel
BenutzerIn
2006-10-06
283 Artikel
BenutzerIn
Hallo,
ich habe eine Frage zu einem kleinen zipping-programm, was ich mir geschrieben habe.
Mit dem Programm will ich alle Dateien, die älter als 1 Tag sind (also von gestern sind) zippen. Wenn die gezippte Datei bereits schon vorliegt, so sollte die Version von 1 auf 2, auf 3, usw. erhöht werden.
Mein Programm sieht so aus:
Allerdings bekomme ich bei einem Testaufruf immer folgende Fehlermeldung:
Er gibt zwar die Version 1 mit an bei der Ausgabe, jedoch stört mich die Fehlermeldung.
ich habe eine Frage zu einem kleinen zipping-programm, was ich mir geschrieben habe.
Mit dem Programm will ich alle Dateien, die älter als 1 Tag sind (also von gestern sind) zippen. Wenn die gezippte Datei bereits schon vorliegt, so sollte die Version von 1 auf 2, auf 3, usw. erhöht werden.
Mein Programm sieht so aus:
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
my $usage;
#my $limitlog = 1800000000;
my $limitlog = 100000;
my $workdir="/feste/Verzeichnis/Struktur";
chdir ("$workdir");
my @files=`find . -mtime 1 -type f|xargs ls -t`;
if (scalar(@files)!=0) {
for my $file (@files) {
#print "$file\n";
chomp $file;
my @node = stat("$workdir/$file");
#print $node[7],"\n";
if ($file=~/\blog/ && $file!~/\b.gz/ && $node[7]>$limitlog) {
$version = $version+1;
$usage = "gzip -c $workdir/$file > /feste/Verzeichnis/Struktur/$file"."_#$version.gz";
#system ("$usage");
print $usage,"\n";
$usage = "cp /dev/null $workdir/$file";
#system ("$usage");
print $usage;
}
}
}
Allerdings bekomme ich bei einem Testaufruf immer folgende Fehlermeldung:
Code: (dl
)
Use of uninitialized value in addition (+) at ./my_program line 20.
Er gibt zwar die Version 1 mit an bei der Ausgabe, jedoch stört mich die Fehlermeldung.
D'OH
Daniel
Daniel