LINUX.ORG.RU

Perl script + tgz = bin


0

0

Всем привет!
Хочу реализовать следующую схему установки
1) Создаём архив бинарников и конфигов distr.tgz
2) Создаём perl-скрипт install.pl
3) Создаём bin файл
cat install.pl > install.bin
cat distr.tgz >> install.bin

Идея очень простая - запускается bin-файл, начинает выполняться 
скрипт, который распаковывает архив (из конца этого же файла)
и распихивает все файлы из него по нужным каталогам.

Все компоненты уже есть. Остался один вопрос - как из perl-скрипта
распаковать архив, хранящийся в его конце?

Как реализовать задачу на Perl'e?
Есть ли поддержка идиомы here document.

После 2-х часового гемороя сделал!
Если кому интересно, то надо делать через __END__ и DATA

ОДИН ВАЖНЫЙ НЬЮАНС!!!!
При считывании tgz-файла к концу прибавляется 0x0A
Его надо удалять, чтобы tar всё правильно понял!

Krivenok_Dmitry
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.