wince/makeico.pl

   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