Thread mehre dateien in eine kopieren (15 answers)
Opened by mark05 at 2011-03-21 11:00

FIFO
 2011-03-22 20:39
#146803 #146803
User since
2005-06-01
469 Artikel
BenutzerIn

user image
2011-03-21T10:00:45 mark05
hi
moechte bitweise dateien zusammen fuegen.

holger


So, hier nochmal - getestet - eine einfache und klare Variante, die Du auch als Perl-Neuling verstehen kannst, als lauffähiges Skript:

Code (perl): (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

#!/usr/bin/perl
# Binary 'cat' für Dateien

use warnings;
use strict;

# print-statements sofort ausgeben
$| = 1;     

my $outfile = '/DeinPfad/DeinDateiname';
my @infiles = qw(
    file1
    file2
    file3
);

open(my $fh_out, '>:raw', $outfile) or die $!;

my $buffer;
my $bufsize = 32768;
my $copied;

for my $file (@infiles) {
    print "Bearbeite $file\n";
    open(my $fh_in, '<:raw', $file) or die $!;
    while ($copied = read $fh_in, $buffer, $bufsize) {
        print $fh_out $buffer;
    }
    close($fh_in) or die $!;
}


Da Du vermutlich alle Dateien auf derselben Maschine hast, brauchst Du über Big/Little-Endian nicht nachzudenken, es wird einfach blockweise kopiert.
Gruß FIFO
Last edited: 2011-03-22 20:41:14 +0100 (CET)
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View full thread mehre dateien in eine kopieren