Shell Programming and Scripting

use IPC::Open3;

#!c:\perl\bin\perl.exe

use strict;
use warnings;
#require "./xxx.pl";
use IPC::Open3;

my @list = glob('*.mp3 *.mp4 *.mpg *.aac *.midi *m3u *.mpa *.dat *.avi');

open(FILEHANDLE, ">vinform.txt") or die "cannot open file";

print FILEHANDLE "NAME \t\t\t DURATION \t DURATION IN SECONDS \n\n";

close(FILEHANDLE);
foreach my $song (@list){

  print "$song \n";

my $filename = $song;

my %videoInfo = videoInfo($filename);

  print "duration: " . $videoInfo{'duration'}. "\n";

  print "durationsecs: " . $videoInfo{'durationsecs'}. "\n\n";

open(FILEHANDLE, ">>vinform.txt") or die "cannot open file";

print FILEHANDLE "$song \t\t";

print FILEHANDLE "". $videoInfo{'duration'}. "\t\t";

print FILEHANDLE "". $videoInfo{'durationsecs'}. "\n \n";

}

close(FILEHANDLE);

sub videoInfo {

    # ffmpeg command

    my $ffmpeg = 'C:\ffmpeg.exe';



    my %finfo = (

                  'duration'     => "00:00:00.00",
                  'durationsecs'  => "0"
);


    my $file = shift;



    # escaping characters

    $file =~ s/(\W)/\\$1/g;



    open3( "</dev/null", ">/dev/null", \*ERPH, "$ffmpeg -i $file" ) or die "can't run $ffmpeg\n";

    my @res = <ERPH>;

 foreach (@res) {



        # duration

        if (m!Duration: ([0-9][0-9]:[0-9][0-9]:[0-9][0-9].[0-9][0-9])!) {

            $finfo{'duration'} = $1;

        }

  }

    my $tenths  = substr( $finfo{'duration'}, 9, 2 );

    my $seconds = substr( $finfo{'duration'}, 6, 2 );

    my $minutes = substr( $finfo{'duration'}, 3, 2 );

    my $hours   = substr( $finfo{'duration'}, 0, 2 );

    $finfo{'durationsecs'} = ( $tenths * .01 ) + $seconds + ( $minutes * 60 ) + ( $hours * 360 );

    return %finfo;
}