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

原创

已于 2024-03-24 19:23:31 修改 · 893 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#perl #FFmpeg #mplayer

于 2024-03-22 00:47:16 首次发布

在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>