Opened by honky at 2006-05-29 10:22
User since
2006-05-23
43 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-05-23
43 Artikel
BenutzerIn
Morgen!
Ich habe meine Copyjob nun fast fertiggestellt. Eine Sache will aber noch nicht so recht.
Wenn ich mit NCopy eine Instanz erzeuge und recursive => 1 einstelle funktioniert alles bestens. nun gibt es aber auch jobs die nicht rekusiv kopieren sollen, sprich nur den inhalt eines ordners.
Mein Code sieht folgender Maßen aus
Meine Fehlermeldung:
... Fehler!Bad file descriptor at copy.pl line 232, <SRC> line 17.
Danke wie immer für eure Hilfe!
Ich habe meine Copyjob nun fast fertiggestellt. Eine Sache will aber noch nicht so recht.
Wenn ich mit NCopy eine Instanz erzeuge und recursive => 1 einstelle funktioniert alles bestens. nun gibt es aber auch jobs die nicht rekusiv kopieren sollen, sprich nur den inhalt eines ordners.
Mein Code sieht folgender Maßen 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
25
26
27
28
29
30
31
32
33
34
35
sub copyAdd {
# Objektvariable erzeugen, welches rekursives Kopieren von
# Verzeichnissen erlaubt
my $file = File::NCopy->new(
'recursive' => 0,
'preserve' => 0,
'follow_links' => 0,
'force_write' => 0,
'set_permission' => \&File::NCopy::u_chmod,
'file_check' => \&File::NCopy::f_check,
'set_times' => \&File::NCopy::s_times,
);
my @data = @_;
my $src = $data[0];
shift(@data);
foreach my $aim (@data) {
if ( $aim ne "" ) {
if ( $aim =~ /(\S+)+/i ) {
print "Kopiere " . $src;
mkdir( $aim, 0777 );
$file->copy( $src, $aim) or die " ... Fehler!" . $!;
print " ... OK \n";
}
}
}
}Meine Fehlermeldung:
... Fehler!Bad file descriptor at copy.pl line 232, <SRC> line 17.
Danke wie immer für eure Hilfe!