Grafik einbinden

[Robert]

Ich möchte in einer durch Perl generierten Datei eine Grafik über ihren URL auf einem Server (http://...) anzeigen lassen. Wie mache ich das?

[Helmut Weber]

Hallo Robert,

Ich möchte in einer durch Perl generierten Datei eine Grafik über ihren URL auf einem Server (http://...) anzeigen lassen. Wie mache ich das?

Wenn ich Dich richtige verstehe, gibst Du mittels Perl einen HTML-Text aus, der im Browser dargestellt wird. In diesem HTML-Text kannst Du ganz gewöhnlich per <img src="" width="" height="" alt="" /> eine Grafik einbinden.

Was hast Du seither versucht, und an was sind deine bisherigen Versuche gescheitert?

Herzliche Grüße aus Weinsberg
Helmut Weber

[Robert]

Ich bin absoluter Anfänger und ägere mich mit einem Fragebogen herum, wo man anklicken soll, ob man versch. Grafiken wiedererkennt. Also Checkbox-Frage.

bei einer Textfrage sieht es so aus:
&checkbox_question ("var_".++$varnr,"Hier die Frage?","A","B","C","D");

ABCD sind die Anwortmöglichkeiten. Nur ich hab keine Ahnung, wie ich statt Textmöglichkeiten eine Grafik einbinden kann. Mit <img> scheinbar nicht.

[Siechfred]

&checkbox_question ("var_".++$varnr,"Hier die Frage?","A","B","C","D");

Was tut die Subroutine checkbox_question?

Nur ich hab keine Ahnung, wie ich statt Textmöglichkeiten eine Grafik einbinden kann. Mit <img> scheinbar nicht.

Doch, natürlich geht das:

<input type="checkbox" name="bildquiz" value="bild1"><img src="bild1.gif"><br>  
<input type="checkbox" name="bildquiz" value="bild2"><img src="bild2.gif"><br>  
<input type="checkbox" name="bildquiz" value="bild3"><img src="bild3.gif">

Wo liegt also genau das Problem?

Siechfred

[Robert]

Das ist die Subroutine:

sub checkbox_question {
#####################################################

Gibt eine Frage auf  aus             #

Parameter:            #

$_[0] = Variablenname          #

$_[1] = Fragentext          #

$_[2] = Text1           #

$_[3] = Text2           #

$_[4] = Text3           #

$_[5] = Text4           #

$_[6] = nocolorchange, wenn nicht lehr, kommt es zu keinem farbwechsel in der zeile  #

#####################################################
 local ($varname, $question,$text[1],$text[2],$text[3],$text[4],$nochange) = @_;
 local ($index);

if ($nochange eq "") {
  if ($linecolor eq "dg") {$linecolor="lg";} else {$linecolor="dg";} # Zeilenfarbe abwechseln
 }

print <<End;
 <tr  class="$linecolor" onmouseover="this.className='hl'" onmouseout="this.className='$linecolor'">
  <td>$question</td>
End

for ($index=1; $index<=4;$index++) {

local ($newvar=$varname."_".$index);
  if ($inputs{$newvar} eq "1") {$checked="checked";} else {$checked="";} #Wenn Formularfeld bereits ausgefüllt auf richten wert setzen

if ($text[$index] eq "") {
          print <<End;
  <td>&nbsp;</td><td>&nbsp;</td>
End
  } else
  {
   #bei checkbox hidden field immmer erzeugen wichtig, da sonst akutalisierung in db fehlschlägt...
   print <<End;
  <td><input type="hidden" name="$newvar" value=""><input type="checkbox" name="$newvar" value="1" $checked></td><td>$text[$index]</td>
End
  }
 }
 print <<End;
 </tr>
End
}

[Siechfred]

Das ist die Subroutine:
[...]
<td>$text[$index]</td>

Wer sagt dir, dass der Inhalt von $text[$index] kein HTML enthalten darf? Also bspw.

$text[$index] = "<img src='bild1.gif'>";

Das sollte dir den gewünschten HTML-Code dahin schreiben, wo sonst die Buttonbeschriftung steht.

Siechfred

[Siechfred]

Tag Robert.

Ich möchte in einer durch Perl generierten Datei eine Grafik über ihren URL auf einem Server (http://...) anzeigen lassen. Wie mache ich das?

Ähm, ist vielleicht dieses Beispielscript das, was du suchst?

Siechfred