Leser: 1
|< 1 2 >| | 19 Einträge, 2 Seiten |
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
sub DATUM{
($sek,$min,$std,$tag,$mon,$jahr,$wtag)=localtime(time);
$mon=$mon+1;
if (length($mon) == 1){
$mon="0$mon";
}
if(length($tag) == 1){
$tag="0$tag";
}
if($std<10){
$sdt="0$std";
}
if($min<10){
$min="0$min";
}
$jahr=$jahr+1900;
$Uhrzeit= "$std:$min";
$Datum="$tag.$mon.$jahr";
}
sub MAIN{
DATUM;
$PCNAME="TESTNAME";
$ZIELB="C\:\\Testordner";
$POWERARC="C\:\\programme\\powerarchiver\\powerarc.exe";
$WINZIP="C\:\\programme\\Winzip\\wzzip.exe";
$ZIPPFAD="C\:\\TEMP\\ZIPTEST";
unless(-e "$ZIPPFAD\\$Datum"){
mkdir($ZIPPFAD,0777);
}
unless(-e $POWERARC){
unless(-e $WINZIP){
system("copy $ZIELB $ZIPPFAD");
print"$!\n";
unlink("$ZIELB");
}
else{
system("C\:\\programme\\Winzip\\wzzip.exe -a $ZIPPFAD\\$Datum\\$PCNAME\-$Uhrzeit $ZIELB\\*");
}
}
else{
system("C\:\\programme\\powerArchiver\\powerarc.exe -a $ZIPPFAD\\$Datum\\$PCNAME\-$Uhrzeit $ZIELB\\*");
}
}
MAIN;
pp -o skriptname.exe skriptname.pl
|< 1 2 >| | 19 Einträge, 2 Seiten |