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

mark05
 2011-03-22 11:59
#146756 #146756
User since
2010-01-05
129 Artikel
BenutzerIn
[default_avatar]
moin,

uppps verwirrt ist .

ich moechte nix backup´en ... es geht darum aufnahme dateien vom vdr , er stueckelt waehren der aufnahme , zu einer grossen zusammen zufuehren.

da das daten sind die stream sind ist es wichtig das diese wirklich bitweise zusammen kommen da es sonst probleme mit audio und oder video
wiedergabe gibt.

ergo wuerde das wohl soh aussehen wenn ich das richtig mit dem pack etc verstehe

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
use IO::File;
my $fh = IO::File->new();

my @files = qw(001.ts 002,ts 003.ts);



open $fh , '>' , 'completefile.ts' or die $!;
binmode $fh,':raw';

foreach my $f (@files) {


open my $read , '<' , $f or die $!;
binmode $read,':raw',

print {$fh} length $read;

while (<$read>) {
 print {$fh} $_;
}
close $read or die $!;
}
close $fh or die $!;




waehre das ungerfaehr richtig ... ist ungetestet .

holger

Last edited: 2011-03-22 12:08:52 +0100 (CET)

View full thread mehre dateien in eine kopieren