运行 cmd
cpan
install Tk
编写 openvideo.pl 如下
perl
#!/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
- 播放比例调整
mplayer -aspect 16:9 <videofile>
mplayer -aspect 4:3 <videofile>
- 控制热键
基本播放
→ 前进10秒
← 后退10秒
↑ 前进60秒
↓ 后退60秒
PageUP 前进10分钟
PageDown 后退10分钟
Enter 全屏开关
Space 暂停开关
Esc 退出
q 退出
perldoc Encode
经过测试发现,即使 use Encode qw(decode encode); 也无法处理含中文的文件路径。
python 3 处理含中文的文件路径,没有问题。光凭这一点,python 就比 perl 更先进。