perl：打开文件夹，选择视频文件，并播放

在Windows10系统中Perl安装Tk模块

运行 cmd
cpan
install Tk
编写 openvideo.pl  如下

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use Tk;

my $mw = MainWindow->new or die 'cannot create Widget';

my $types = [['AVI', '.avi'], ['MP4', '.mp4']];

my $file = $mw->getOpenFile(-initialdir=>'D:/VIDEO', -filetypes=>$types);
#print $file;

if ( -e $file){
    my $fname = basename($file);
    system("D:/FFModules/Encoder/mplayer.exe -title $fname -aspect 4:3 $file");
} else {
    print 'file is not exists.';
}
#MainLoop;

运行 perl openvideo.pl 

如果你的PC安装了【 格式工厂】这个应用软件，那么实际安装了Windows版的 FFmpeg
在D:\FormatFactory\FFModules\Encoder\ 能找到 mplayer.exe 和 ffmpeg.exe

这里谈谈 mplayer 简单应用：mplayer -h

1. 播放比例调整
mplayer -aspect 16:9 <videofile> 
mplayer -aspect 4:3 <videofile>

2. 控制热键
基本播放 
→　　　　　前进10秒
←　　　　　后退10秒
↑　　　　　前进60秒
↓　　　　　后退60秒
PageUP　　前进10分钟
PageDown　后退10分钟
Enter　　　全屏开关
Space　　　暂停开关
Esc　　　　退出
q　　　　　退出