linux - Perl 模块或方法无需系统命令即可从目录创建符合 DVD 标准的 ISO

Question

是否有任何 Perl 模块或模块组合来创建兼容 DVD 的 ISO？这将在 Linux 上运行，我不关心可移植性。我要做的是从包含 VIDEO_TS 目录结构的目录中创建一个兼容 DVD 的 ISO。该解决方案不需要翻录实际的 DVD。

我目前运行的是：

genisoimage -V 'Name_of_DVD' -dvd-video -o dvd.iso /some_directory

我知道 Perl 能够运行外部命令：

system function
exec function
backticks (``) operator
open function

还有Filesys::MakeISO::Driver::Mkisofs使用 genisoimage/mkisofs 的 CPAN 模块。我特别想要的是一个不使用 linux/OS 命令的解决方案。如果没有这样的解决方案或解决方案过于复杂，请说明。谢谢。

Answer 1

虽然我对 CPAN 充满热情，但我认为如果没有明显的效果，并且您不关心远离 linux 的可移植性，那么我会做

use strict;
use warnings;

use autodie;

...

system( q# genisoimage -V 'Name_of_DVD' -dvd-video -o dvd.iso /some_directory # );

或者正如你提到的，使用Filesys::MakeISO::Driver::Mkisofs. 不是要刻薄，但 CPAN 应该是生产力++，但如果它不存在，那么就做什么工作。