Datei übers Netzwerk umbenennen geht nicht - #106746 (Allgemeines zu Perl)

GwenDragon

2008-03-06 09:02

User since
2005-01-17
14607 Artikel
Admin1

Sowas geht doch:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
my $unc_z = '\\\DEV\x$';
my $temp = '\tmp';
my $file_name = $unc_z . $temp .'\ht.txt';
rename ($file_name, $file_name. '.md5err') or die ("$!: $file_name");

Du escapest einfach nur zu viel in deinen Strings. ;)

Aber rename kopiert nicht, sondern benennt um.
Willst du nun kopieren oder umbenennen?

Kopieren geht so:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
my $unc_z = '\\\DEV\x$';
my $temp = '\tmp';
my $file_name = $unc_z . $temp .'\ht.txt';
copy( $file_name, $file_name. '.md5err') or die ("$!: $file_name");

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten