Модуль или метод 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 должен быть продуктивным ++, но если его не существует, то делай то, что работает.