Модуль или метод Perl для создания DVD-совместимого ISO из каталога без системных команд

Question

Существуют ли какие-либо модули Perl или комбинации модулей для создания ISO-совместимых DVD? Это будет работать на Linux, и я не беспокоюсь о переносимости. Я хочу создать ISO-совместимый DVD-диск из каталога, который содержит структуру каталогов VIDEO_TS. Решение не должно было бы разорвать фактический 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. Что я конкретно хочу, так это решение, которое НЕ использует команды 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 должен быть продуктивен ++, но если он не существует, то делайте то, что работает.