melo / scripts

My personal script stash

This URL has Read+Write access

scripts / bin / x-video-info
100755 44 lines (32 sloc) 1.024 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

#!/usr/bin/env perl
 
use strict;
use warnings;
use Video::Info;
 
my $file = $ARGV[0];
print "Usage: x-video-info FILE\n" unless $file;
 
my $video = Video::Info->new( -file => $file );
die "Could not open file $file\n" unless $video;
 
my $vcodec   = $video->vcodec;
my $fps      = $video->fps;
my $frames   = $video->vframes;
my $duration = $video->duration;
my $vrate    = $video->vrate / 8;
 
my $width    = $video->width;
my $height   = $video->height;
 
my $hours = int($duration/3600);
my $mins  = int(($duration-$hours*3600)/60);
my $secs  = $duration-$hours*3600-$mins*60;
 
my $acodec = $video->acodec;
my $n_chan = $video->achans;
my $rate   = $video->arate;
my $freq   = $video->afrequency;
 
$rate = $rate / 1024;
$freq = $freq / 1000;
 
printf(
  'Video Codec: %s (%.2f FPS, duration %0.2i:%0.2i:%0.2i, size %i x %i, rate %i Kbps)%s',
  $vcodec, $fps, $hours, $mins, $secs, $width, $height, $vrate, "\n",
);
 
printf(
  'Audio Codec: %s (%i channels, at %i kbps, %i KHz)%s',
  $acodec, $n_chan, $rate, $freq, "\n",
);