Re: Stille aus Audio-Files entfernen

[Michael Schlenstedt <Michael@schlenn.net>]

On Sun Sep 29, 2002, Volker Cordes <MrLogic@gmx.de> wrote:
> Hi,
> 
> Ich möchte von meinen WAV-Dateien automatisch Stille an Anfang und Ende 
> entfernen. Mit welchem Programm mache ich das am besten? Ich hab mir 
> schon SoX angeschaut aber keine entsprechendes Beispiel gefunden.

Dieses Skript habe ich mal irgendwo aus dem Usenet, aber Eduard's Skript
sieht etwas ausgereifter aus. "Meines" funktioniert nichtsdestotrotz
seit Ewigkeiten wunderbar:

,----
| #!/usr/bin/perl
| foreach $file (@ARGV) {
|         print "Filename:     ", $file, "\n";
|         my $filesize = (stat($file))[7];
|         print "Filesize:     ",$filesize, "\n";
|         my $c;
|         open(fh,"+<$file");
|         do {
|          $c++;
|          seek (fh,-$c,2);
|          $byte = getc(fh);
|         }until ($byte != 0);
|          my $filesizenew = $filesize + 1 - $c;
|          truncate (fh, $filesizenew);
|          print "New Filesize: ",$filesizenew, "\n";
| }
`----

Bye,
Michael

-- 
      ___                     Michael@schlenn.net         o
     /_\ `*     `  _ ,   http://adsl4linux.de/~michael   /_\ '         ,,,
    (o o)      -  (o)o)      ICQ: 38605983 (Schlenn)    (o o) -       (o o)
ooO--(_)--Ooo--ooO'(_)--Ooo-------------------------ooO--(_)--Ooo-ooO--(_)--Ooo-