Mehrere Grafiken zusammen ausgeben?

[Markus Pitha]

Nabend,
Als ich mit meinem bereits eingerosteten Perl versuchte einen einfachen Grafikcounter, der bei jedem Klick weiterzählt zu realisieren, staunte ich nicht schlecht als ich draufkam, dass ich bei Grafiken nicht so vorgehen kann, wie bei normalem Text, was die Ausgabe betrifft.
Ich kann irgendwie nur eine (die erste) Grafik ausgeben, und die nächste(n) Grafik(en) werden einfach unter den Tisch fallen gelassen. Danach dachte ich an eine "Verkettung" von Grafiken, damit ich sie vielleicht zusammen als einen String ausgeben kann, aber ich wüsste nicht wie? Hat jemand einen sinnvollen Ansatz? Also nochmal: Es wird immer nur die erste Stelle der Zahl ausgegeben. bei 23 also 2. Bei 156 die Eins.

  
#!/usr/bin/perl -w  
  
use strict;  
use CGI::Carp qw(fatalsToBrowser);  
  
my @ziffern = qw(null eins zwei drei vier fuenf sechs sieben acht neun);  
my @counterwert = ();  
  
open FILE, "+<counter.txt" or die "Kann counter.txt nicht öffnen: $!\n";  
flock FILE, 2;  
my $zahl = <FILE>;  
seek FILE, 0, 0;  
truncate FILE, 0;  
print FILE ++$zahl;  
close FILE;  
  
#Grafiken laden  
     for(my $i = 0; $i <= 9; $i++)    {  
  open IMAGE, "ziffern/$ziffern[$i].jpg" or die "Kann ziffern/$ziffern[$i].jpg nicht lesen :$!\n";  
  binmode IMAGE; #wegen Windows  
  undef $/; #wichtig, damit Bild nicht zeilenweise eingelesen wird.  
  $ziffern[$i] = <IMAGE>;  
  close IMAGE;  
     }  
  
print "Content-Type: image/jpg\n\n";  
binmode STDOUT;  
  
  while ($zahl =~ /(\d)/g)    {  
  print STDOUT $ziffern[$1];  
  }  
  
  

Markus.