1 Pxiel GIF ausgeben um versteckte IMG-Tags zu erzeugen ohne Modul? #1

Datum: 15.12.2001, 19:29

code:

sub print_gif($$$){#RGB my ($r, $g, $b) = @_; # 0.0.0 bis 255.255.255 my @GIF = (71, 73, 70, 56, 57, 97, 1, 0, 1, 0, 128, 0, 0, $r, $g, $b, 255, 255, 255, 44, 0, 0, 0, 0, 1, 0, 1, 0, 0, 2, 2, 68, 1, 0, 59); print "content-type: image/gif\n\n"; binmode(STDOUT); print chr $_ foreach @GIF; }

Re: Re: 1 Pxiel GIF ausgeben um versteckte IMG-Tags zu erzeugen ohne Modul? #3

Datum: 15.02.2008, 19:16

zitat:(Tannhäuser,15.02.2008, 18:45)

http://perlhelp.de/codeerrimg.xml/index das ist inzwischen wohl eine Werbeseite