| 1 | open ICO, ">perl.ico" or die $!;
|
|---|
| 2 | while (<DATA>) {
|
|---|
| 3 | chomp;
|
|---|
| 4 | print ICO pack "H*", $_;
|
|---|
| 5 | }
|
|---|
| 6 | close ICO or die $!;
|
|---|
| 7 |
|
|---|
| 8 | # Create new hex data with
|
|---|
| 9 | # perl -wle 'binmode STDIN; $/ = \32; while (<>) {print unpack "H*", $_}' <perl.ico.orig
|
|---|
| 10 | # then place after __DATA__
|
|---|
| 11 | __DATA__
|
|---|
| 12 | 000001000200101010000000000028010000260000002020100000000000e802
|
|---|
| 13 | 00004e0100002800000010000000200000000100040000000000c00000000000
|
|---|
| 14 | 0000000000000000000000000000000000000000800000800000008080008000
|
|---|
| 15 | 00008000800080800000c0c0c000808080000000ff0000ff000000ffff00ff00
|
|---|
| 16 | 0000ff00ff00ffff0000ffffff00000040000004000000000433334000000000
|
|---|
| 17 | 003bb3000000000004b33b400000000044644644000000044ee44ee440000004
|
|---|
| 18 | eeeeeeee4000000eeeeeeeeee000000eeeeeeeeee000000eeeeeeeeee0000006
|
|---|
| 19 | eeeeefee60000000eeeeeeef000000000eeeeef0000000000066660000000000
|
|---|
| 20 | 0000000000000000000000000000f00f0000f81f0000fc3f0000f81f0000f00f
|
|---|
| 21 | 0000e0070000e0070000e0070000e0070000e0070000e0070000f00f0000f81f
|
|---|
| 22 | 0000fc3f0000ffff0000ffff0000280000002000000040000000010004000000
|
|---|
| 23 | 0000800200000000000000000000000000000000000000000000000080000080
|
|---|
| 24 | 000000808000800000008000800080800000c0c0c000808080000000ff0000ff
|
|---|
| 25 | 000000ffff00ff000000ff00ff00ffff0000ffffff0000000000044000004000
|
|---|
| 26 | 00440000000000000000004444040404444000000000000000000004b3430343
|
|---|
| 27 | b400000000000000000000004bb333bb40000000000000000000000043bbbbb3
|
|---|
| 28 | 4000000000000000000000004b3b3b3b400000000000000000000004bbb3b3bb
|
|---|
| 29 | b4000000000000000000004b444b3b444b40000000000000000004b46644b446
|
|---|
| 30 | 64b400000000000000004b46e6e4b4e6e64b4000000000000004b46e6e64446e
|
|---|
| 31 | 6e64b40000000000000446e6e6e646e6e6e644000000000000046e6e6e6e4eee
|
|---|
| 32 | ee6e6400000000000066e6e6eeee4eeeeeeee66000000000006e6e6eeeeeeeee
|
|---|
| 33 | eeeeee60000000000066e6eeeeeeeeeeeeeeee6000000000006e6eeeeeeeeeee
|
|---|
| 34 | eeeeee60000000000066eeeeeeeeeeeeeeeeee6000000000006e6eeeeeeeeeee
|
|---|
| 35 | feeeee60000000000066eeeeeeeeeeeefeeeef600000000000066eeeeeeeeeef
|
|---|
| 36 | feeee600000000000006eeeeeeeeefffeeeef6000000000000006eeeeeeeeeee
|
|---|
| 37 | eeef600000000000000006eeeeeeeeeeeef60000000000000000006eeeeeeeee
|
|---|
| 38 | ef60000000000000000000066eeeeeef66000000000000000000000006666666
|
|---|
| 39 | 0000000000000000000000000000000000000000000000000000000000000000
|
|---|
| 40 | 0000000000000000000000000000000000000000000000000000000000000000
|
|---|
| 41 | 00000000000000000000000000000000000000000000ff8000ffffc001ffffe0
|
|---|
| 42 | 03fffff007fffff007fffff007ffffe003ffffc001ffff8000ffff00007ffe00
|
|---|
| 43 | 003ffe00003ffe00003ffc00001ffc00001ffc00001ffc00001ffc00001ffc00
|
|---|
| 44 | 001ffc00001ffe00003ffe00003fff00007fff8000ffffc001ffffe003fffff8
|
|---|
| 45 | 0fffffffffffffffffffffffffffffffffffffffffff
|
|---|
