В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

464 membersпожаловаться на группу
2021 September 18

MG

Mr. Good in Modern::Perl
Всем привет! Извиняюсь за небольшой оффтоп, но может кто-то тут сможет помочь. Я пытаюсь расковырять старую DOS игру, мне нужно из неё картинки достать. Картинки хранятся в отдельных файлах, возможно сразу по несколько штук в одном файле. Расширение файлов PIC (скорее всего ничего не значит). Игра под EGA. Может можно как-то перебрать эти данные Перлом и вытянуть эти картинки?
источник
17:51пожаловаться#1

VG

Vadim Goncharov in Modern::Perl
perldoc -f unpack
источник
17:59пожаловаться#2

MG

Mr. Good in Modern::Perl
Спасибо, сейчас попробую
источник
18:01пожаловаться#3

SZ

Sergey Zhmylove in Modern::Perl
Используй python, модуль struct
источник
18:01пожаловаться#4

MG

Mr. Good in Modern::Perl
спасибо, но буду стараться Перлом решить, не люблю я Питон:)
источник
18:03пожаловаться#5

VG

Vadim Goncharov in Modern::Perl
что он дает и чем лучше pack?
источник
18:04пожаловаться#6

SZ

Sergey Zhmylove in Modern::Perl
Для нас с тобой -- ничем
источник
18:12пожаловаться#7

М

Млюшевый Пишка... in Modern::Perl
А если там пропиертарный формат?)) как он в этом потоке байтов картинку найдёт?)
источник
18:17пожаловаться#8

VG

Vadim Goncharov in Modern::Perl
это уже другой вопрос, не имеющий отношения к перлу
источник
18:18пожаловаться#9

MG

Mr. Good in Modern::Perl
я правильно понял идею, что мне нужно открыть файл, сделать unpack данных, сохранить их в другой файл, и пробовать открыть как картинку?
источник
18:20пожаловаться#10

VG

Vadim Goncharov in Modern::Perl
нет
источник
18:21пожаловаться#11

VG

Vadim Goncharov in Modern::Perl
тебе еще надо знать, в каком формате оно
источник
18:21пожаловаться#12

AP

Alexander P in Modern::Perl
Попробуй на одиночную картинку натравить file(1). На "архив" тоже. И глянь, не умеет ли их готовить какой-нить ImageMagick
ImageMagick
Create, Edit, Compose, or Convert Digital Images
источник
18:22пожаловаться#13

AP

Alexander P in Modern::Perl
У него, кстати, и свой identify имеется
источник
18:24пожаловаться#14

М

Млюшевый Пишка... in Modern::Perl
Это поможет только если одна картинка на файл?))
источник
18:29пожаловаться#15

R

Roman in Modern::Perl
https://www.fileformat.info/format/pictor/egff.htm
Древний формат. Кстати, для PaintBrush.
источник
18:29пожаловаться#16

М

Млюшевый Пишка... in Modern::Perl
Не факт, что это он
источник
18:29пожаловаться#17

R

Roman in Modern::Perl
есть сигнатура, легко проверить
источник
18:29пожаловаться#18

М

Млюшевый Пишка... in Modern::Perl
Может тебе дешевле нанять художника, который эти картинки нарисует?)))
источник
18:29пожаловаться#19

R

Roman in Modern::Perl
Id is an identification value. This value is always 1234h.
Т.е. в начале файла всегда 0x34, 0x12
источник
18:29пожаловаться#20