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

还有CPAN CPAN模块Filesys::MakeISO::Driver::Mkisofs，它使用genisoimage / mkisofs。我特别想要的是一个 NOT 使用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应该是生产力++，但如果它不存在，那么做有用的。