Mehrere Bilder an den Browser senden: Bildausgabe mit Perl (Seite 2) (Perl/CGI)

Gast Gast

2004-04-19 20:56

könnte mE auch ganz profan so funktionieren:

Code: (dl )

print "Content-type: text/html\n\n";
$counter = 15748; # z.B.
@counter = split //, $counter;

print qq|<img src="$path_to_image/image$_.jpg">| foreach @counter;

Schlagt mich nicht - ich bin so schmerzempfindlich ... ;)

dus-web

2004-04-19 21:04

User since
2004-02-13
25 Artikel
BenutzerIn

@Dieter

SDas Problem dabei ist nur, dass ich den Counterstand in einem HTML-DOC per <img src=cgi-bin/counter.cgi> einbinden möchte...
Aber ansonsten gute Idee...

Danke für die Mühen & Gruß,

dus-web

Gast Gast

2004-04-19 21:10

[quote=dus-web,19.04.2004, 19:04]@Dieter

SDas Problem dabei ist nur, dass ich den Counterstand in einem HTML-DOC per <img src=cgi-bin/counter.cgi> einbinden möchte...
Aber ansonsten gute Idee...

Danke für die Mühen & Gruß,

dus-web[/quote]

Quote
Das Problem dabei ist nur, dass ich den Counterstand in einem HTML-DOC per <img src=cgi-bin/counter.cgi> einbinden möchte...

dann versuchs doch mal so ...

Code: (dl )

<img src=@{[cgi-bin/counter.cgi]}>

ist mir gerade so eingefallen - hab ich selbst aber noch nie gemacht.

Quatsch, das kann nur funktionieren wenn die HTML-Datei vom Script erzeugt wird - sorry\n\n

ptk

2004-04-19 21:26

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Dann ist die Antwort: geht nicht. Mir ist jedenfalls kein Standard-Modul oder Pure-Perl-Modul bekannt, welches GIFs, PNGs oder JPEGs ausspucken kann. Es waere aber nicht unmoeglich, so etwas zu schreiben. Man muesste sich dazu nur einen GIF-Encoder/Decoder anschauen (meistens in C geschrieben) und in Perl nachimplementieren. Das waere zwar nicht rasend schnell, aber fuer kleine Bilder wahrscheinlich noch praktikabel.

[E|B]

2004-04-19 23:08

User since
2003-08-08
2561 Artikel
HausmeisterIn

GD, Image::Magick, Imager,...
Das sind alles gute Lösungen, die man verwenden kann.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Gast Gast

2004-04-20 00:12

Funktioniert GD jetzt auch mit jpeg?

jan

2004-04-20 00:16

User since
2003-08-04
2536 Artikel
ModeratorIn

das tat es doch schon immer oder nicht? gif funktioniert in den aktuellen versionen nicht, aber jpg war doch nie ein problem - oder irre ich?

steffenw

2004-04-20 00:18

User since
2003-08-15
692 Artikel
BenutzerIn

Counter sind doch keine Fotos mit sehr vielen Farben, wo man mit Riesentools wie Image::Magick zuschlagen muß. Durch den Blumentopf fährt man doch auch nicht mit dem Traktor.

Der Vorschlag von @Strat, GD zu nehmen, ist sehr passend. GD arbeitet mit Farbpaletten und wurde ursprünglich für *.gif-Dateien entwickelt. Die Ein- und Ausgabe erfolgt heutzutage als *.png-Datei. Die einzelnen Ziffern kann man vorher auch recht gut im *.png's umwandeln, um sie dann aktuell mit einem Script zusammenzufassen und dann zum Browser zu senden.

$SIG{USER} = sub {love 'Perl' or die};

ptk

2004-04-20 12:36

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Laut README aus der libgd-Distribution gibt es JPEG-Support erst seit Version 1.8, also eigentlich nicht so lange. Der GIF-Support wurde in Version 1.6 entfernt. Die Versionsnummern von GD.pm entsprechen uebrigens nur in der Major-Nummer der libgd-Version.

[E|B]

2004-04-20 21:48

User since
2003-08-08
2561 Artikel
HausmeisterIn

Genau wie bei GIMP, der unterstützt auch keine .gifs. *rr* ;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]