Size: a a a

2021 September 19

NK

Nick Knutov Dobrohos... in Modern::Perl
у меня сотни перкон 5.6 и несколько перкон 8.

    dbi_params:
     RaiseError: 1
     AutoCommit: 1
     mysql_auto_reconnect: 1
     mysql_enable_utf8: 1


вот с этим проблем нет последние много лет.
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
в дансере хорошая обертка кстати сделана которая работает даже в том случае если дби лажает с mysql_auto_reconnect
источник

VV

Vladimir Varlamov in Modern::Perl
@mrgood313373 судя по тому что в ENEMY.PIC лежит 2 спрайта и он занимает 5760 байт, а спрайт врага примерно в 10 раз меньше всего экрана, а YOULOSE.PIC 30кб и инфа там не повторяется по каналам как raw EGA, то можно сделать вывод, что он как и TITL.PIC пожат. Ну чем там было можно тогда пожать. RLE какой-нибудь
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
глазами видно что ничего там не пожато
источник

MG

Mr. Good in Modern::Perl
Не, кажется это норма, это не юнит, а персонаж с карты - они маленького размера. А мне юниты нужны из army.pic. А YOULOOSE.PIC - это заставка на весь экран "game over". Я просто неправильно изначально выбрал вам файл сюда для примера, нужно было наверное сразу кидать файлы army*.pic
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
а про остальные по ссылке вроде как достаточно инфы -- размер фиксированный, надо только угадать как цветность кодируется
источник

MG

Mr. Good in Modern::Perl
p.s. хотя, может и юниты не намного больше в итоге окажутся, их же там по несколько штук в каждом файле
источник

VV

Vladimir Varlamov in Modern::Perl
Как кодируются понятно,там просто 3 канала и интенсивность в файле лежит вопрос только в выборе палитры.
источник

VV

Vladimir Varlamov in Modern::Perl
Научите так видеть как вы. Там картинки со сплошной заливкой типа неба, я думаю там пожаты длинные последовательности одного цвета
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
а ты вообще смотрел файл-то? там дохуя повторяющегося.
источник

VV

Vladimir Varlamov in Modern::Perl
Да, я  сделал парсер остальных фалов и на нем попробовал все разрешения для этого, который не читается. Размер спрайтов 12 байт в строку, по 4 бита на пиксель и так 60 линий, 4 раза повтряется для всех каналов. А на этой заставке такого нет
источник

VV

Vladimir Varlamov in Modern::Perl
Проще всего найти автора и у него спросить :)
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
00000140  8c 66 03 01 8c c6 60 00  2b 00 18 00 05 00 0c 00  |.f....`.+.......|
00000150  07 00 10 00 04 00 10 00  3c 00 18 00 05 00 0c 00  |........<.......|
00000160  49 00 18 00 05 00 0c 00  49 00 18 00 05 00 0f ff  |I.......I.......|
00000170  49 00 f8 00 05 00 0f ff  49 00 f8 00 05 00 0c 00  |I.......I.......|
00000180  49 00 18 00 05 00 0c 00  49 00 18 00 05 00 0c ff  |I.......I.......|
00000190  49 00 18 00 05 00 0c ff  49 00 18 00 05 00 0c ff  |I.......I.......|
*
000001b0  49 00 18 00 05 00 0c ff  20 00 e1 ff 01 00 80 7f  |I....... .......|
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
когда у тебя в файле вот такая куча нулей и повторяющихся цепочек байт -- он почти наверняка не жат
источник

VV

Vladimir Varlamov in Modern::Perl
Единственное что можно попробовать это формат где все каналы последовательно в 2 байтах идут, то есть если каждый 4 прочитать то получим ответ.
источник
2021 September 20

D

Denys in Modern::Perl
Коллеги: кто на понмнит магию создания перловых переменных. Я хочу вот такое
perl -E ' $v = "x";  #magic# = 1; say $x'
1
что нужно написать всместо #magic# что бы объявить $x переменную - прочитав х как значение $v. Должно быть что то типа ${"::$v"} = 1. Но так не работает..
источник

AK

Andrey Karepin in Modern::Perl
eval?
источник

МИ

Михаил Иванов... in Modern::Perl
perl -E ' $v = "x"; $$v= 3; say $x'
источник

B

BSV in Modern::Perl
источник

И

Иван in Modern::Perl
Разве просто  

$v = "x";  ${$v} = 1; say $x

не работает?
источник