perl, ?

[empire]

Hallo Leute

Ich habe ein Probelm mit Perl.

Ich will über eine Grafikrefenz ein Perl Script ausführen was dann ein JPG zurück giebt. Mein Problem ist. das er irgendwie das bild nicht finden kann.

<a>

  <img src="../cgi-bin/image.pl">

</a>

PERL SCRIPT:

#!/usr/bin/perl

print "../pics/bild.jpg" ;

+benutze JANA Server

+ Active Perl

+ Editor Allaire HomeSite 4.5

wäre klasse wenn ihr mir helfen könntet

empire

[empire]

Hat sich erledigt die Frage..

Kann gelöscht werden.

cu

empire

Happy New Year

[mst]

Na, bitte nicht löschen.

Ich habe das gleiche Problem.

Ich will mit <img src="bild.cgi"> eine dynamisches Bild an den Browser schicken, aber das klappt nicht.

Das Bild will ich im Skript per "print STDOUT $gd->png".

Erzeugen.

Muss oder kann ich vorher STDOUT in den binär Modus setzen?

Das klappt bei mir alles irgendwie nicht.

Wer kann helfen?

[alligator]

hi mst.

Ein klare Antowrt: du solltest

Binmode ist erforderlich für Win32 und Mac OS. Aber Unix ischs egal.

Also mach: binmode STDOUT;

Benutzt du das CGI-Modul ?

Kannst ja mal den Code posten ...

Nachtrag:

Benötigt man da nicht Server Side includes um ein Script aus einer HTML-Site aufzurufen ?

cu

alligator

[mst]

Als $handle wird *STDOUT übergeben.

Die Daten für die Grafik in $refdata.

Das CGI-Objekt in $cgi;

Das Erstellen der Grafik funktioniert. Das habe ich getestet, in dem ich eine lokale Datei damit erzeuge.

Systeminfo: Linux, Apache-Server, Perl 5.x

sub createChartStream

{

        $cgi = shift(@_);

        $handle = shift(@_);

        $refdata = shift(@_);

        print $cgi->header('image/png');

        binmode($handle);


        my $graph = GD::Graph::lines->new $chartwidth,$chartheight);

                $min = getMin($refdata);


                $graph->set(    x_label = $chart_xlabel,

                                y_label = $chart_ylabel,

                                title   = $chart_title,

                                y_max_value = 100,

                                y_min_value = $min - $chart_minoffset

                           );


                my $gd = $graph->plot($refdata);


                print $handle $gd->png();

                return 1;

        }

}


[/PHP]

Wäre Super, wenn du mir helfen könntest