6 Einträge, 1 Seite |
@dateig=stat("$ziel/$zielname");
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
format_c@server:~/perl_scripts> cat stat.pl
use strict;
use warnings;
my $file = 'test 1.txt';
print join "\n", stat $file;
print "\n";
format_c@server:~/perl_scripts> perl stat.pl
773
104845
33188
1
500
100
0
5
1081702930
1081702930
1081702930
4096
8
format_c@server:~/perl_scripts>
open(PROG, "/bin/tar -X $excludefiles -c --$ext -vpf $ziel/$zielname /|" ) || die "Error! can't execute tar\n";
open(PROG, qq~/bin/tar -X $excludefiles -c --$ext -vpf "$ziel/$zielname" /|~ ) || die "Error! can't execute tar\n";
6 Einträge, 1 Seite |