Copy kopiert Datei nicht komplett. - #135329 (Allgemeines zu Perl)

leo11

2010-03-26 19:44

User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]

Warum ẃird mit untem stehenden Code nur ein Teil der Datei kopiert? Ich habe bei der Doku von File::Copy folgenden Text gelesen:

Code: (dl )

Note that passing in files as handles instead of names may lead to loss of information on some operating systems; it is recommended that you use file names whenever possible. Files are opened in binary mode where applicable. To get a consistent behaviour when copying from a filehandle to a file, use binmode on the filehandle.

Das klingt nach dem Problem, aber ich benutze kein Handle. Könnte es daran liegen, dass es noch eine Verbindung zwischen dem durch File::Temp erzeugen tempfile und dem dafür benutzen Filehandle gibt? Ist nur so eine These, weil ich in der Doku von File::Temp gelesen habe, das CLEANUP => '1' die Datei beim beenden des Skriptes automatisch löscht.

Die Datei test wurde wie folgt erstellt:

Code: (dl )

1
2
3

$for i in $(seq 1 1050); do echo "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n" >> test; done
$cat test | wc -l
1050

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Temp qw/tempdir tempfile/;
use File::Copy;

open my $f,'<','./test' or die "$!";


my $content = do { local($/); <$f>; };

my $temp_dir = '/home/mkurz/tmp';

my ($fh,$filename) = create_temp_file($temp_dir);
print $fh $content;
move_files($filename, $temp_dir);


sub move_files {
    my ($file1, $temp_dir) = @_;
    my $dir = create_temp_dir($temp_dir);
    print $dir;
    copy("$file1","$dir");
}

sub create_temp_dir {
    my($temp_dir) = @_;
    my  $dir = tempdir(
                      CLEANUP =>  '0',
                      DIR     => "$temp_dir",
                     );
    return $dir;
}


sub create_temp_file {
    my ($temp_dir) = @_;
    my ($dir, $fh, $filename);
    $dir = tempdir(
                   CLEANUP =>  '1',
                   DIR     => "$temp_dir",
                  );
    ($fh, $filename) = tempfile(
                                DIR => $dir,
                                SUFFIX => '.idoc',
                               );
    # binmode( $fh, ":utf8" );
    return $fh, $filename;
}

Das kopierte File hat nun nur noch 996 Zeilen:

Code: (dl )

1
2

$ cat m7Soxkqqlb/jDt7Qxr1HW.idoc | wc -l
996