Hi Felix,
Der macht das ja auch viel zu umständlich.
my @mp3s = <*.mp3>; my $outbin = ''; foreach my $mp3( @mp3s ){ ... $outbin .= $buffer; } chdir "out" or die $^E; my $fh = IO::File->new; $fh->open(join('', @mp3s), O_CREAT|O_BINARY|O_RDWR) or die $!; $fh->print($outbin); $fh->close;
hmm. Wenn es nur um ein simples Konkatenieren von Binärdaten geht, dann hat man in PHP eine noch kürzere Möglichkeit:
Ja, ich bin auch geneigt, eine file_get_contents() und eine file_put_contents() in meine Factory aufzunehmen wenn ich mich demnächst dabei ertappen sollte ein zweites Mal $fh->open
irgendwo hintippen zu wollen...
Ansonsten geht das Konkatenieren in Perl sogar noch kürzer über den Diamond-Operator, hierzu werden die Dateinamen einfach auf @ARGV ge-pusht. Für's mp3-Management würde ich jedoch, genau wie Du, möglicherweise ein bischen mehr Aufwand treiben wollen ;)
MfG