Creating a 1px GIF with Perl
My buddy Adam mentioned this at some point and although I’ve never had to use it and probably won’t ever, I thought it was kind of neat. (Obviously you don’t have to break up the string and concatenate it with periods – I just did that so it wouldn’t break weird on this page.)
print "Content-type: image/gif\n\n";
my $pixelImg = 'GIF89a'.pack('H',
'0100010080ff00c0c0' .
'c000000021f9040100' .
'0000002c0000000001' .
'0001000002024401003b');
If this post is interesting to you, subscribe to this site.
Posted: April 29th, 2007 under scripting.
Comments: none
Write a comment