Ubuntu-Forum & Kubuntu-Forum | www.Ubuntu-Forum.de

Quellcode

cat datei1.wav datei2.wav > zusammen.wav 

PHP-Quelltext

#!/usr/bin/perl -w
use strict;
my $dir="/quelle";
my $target="/target";
my @filelist = glob("$dir/*.wav");
my $size = @filelist;
my $time_start=time();

if (-d "$dir" && -d "$target") {
    #Replace(); ## <-- hinzugefügt
    Merge ();
    Time ();
    print "Es wurden $size Stücke zusammengesetzt.\n";
}
else {
    print "Fehlerhaftes Quell- oder Zielverzeichnis."
}
#### hinzugefügt
#sub Replace {
#    foreach (@filelist) {
#        $_=~s/ /\_\;/g;
#  }
#}
####
sub Merge {
    $"=" -i ";
    my $files = "@filelist";
    system "wavcut -i $files $target/gesamt.wav";
}
sub Time {
    my $time_end=time();
    my $time=$time_end-$time_start;
    my $minutes=int($time/60);
    my $seconds=$time%60;
    
    if ($minutes <= "0") {
        print " Dauer des Zusammenfügens: $seconds s\n";
    }
    else {
        $minutes=int ($time/60);
        print " Dauer des Zusammenfügens: $minutes min, $seconds s\n";
    }
}

Quellcode

chmod +x name.pl

Quellcode

./name.pl