How to run a ffmpeg perl script on Windows?

[Ajit Teli]

Change path to the ffmpeg for windows xp. I have attached the script here...

audinfo.txt

#!usr/bin/perl
 
use strict;
use warnings;
my $perl = "G:\Perl\bin\perl.exe";
use IPC::Open3;
 
my @list = glob('*.mp3 *.MP3 *.mp4 *.mpg');
foreach my $song (@list){
print "$song \n";
my $filename = $song;
 
my %videoInfo = videoInfo($filename);
 
print "duration: " . $videoInfo{'duration'}. "\n";
}
sub videoInfo {
 
    # ffmpeg command
 
    my $ffmpeg = "usr\bin\ffmpeg";
 
 
 
  my %finfo = (
 
                 'duration'     => "00:00:00.00",
);
 
 
 
    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;
 
}

[numberwhun]

So, on the command line type:

perl <filename>