Perl Widget einzelne Wörter einzeln formatieren.

[Kyo1987]

Hallo zusammen,

es hat sich folgendes Problem aufgetan. Ich habe ein Widget programmiert.
In diesem Widget soll eine bestimmte stelle im Text hervorgehoben werden.
Am besten sollte sie "Fett formatiert" werden.
Leider weiß ich nicht, wie ich einzelne Stellen im Text Widget hervorheben kann.
In meinem schlauen Buch steht nur etwas vom ganzen Text formatieren.
Kann mir da einer von euch evt. weiterhelfen?

Vielen Dank

Kyo

[Kyo1987]

So das Problem habe ich jetzt behoben.

Jetzt zu einem anderen Problem. Diesen Text möchte ich Farblich hervorheben.

Hier das Script.

$text->tagConfigure('normal', -font => "{Arial} 12");
$text->tagConfigure('color', -foreground => if $er = erreichbar then else 
$text->insert('end', "SSH Port 22 ist auf der IP-Adresse: $ip \n mit dem Hostnamen: $Name  ",'normal');
$text->insert('end',"-$er", 'color');

Mein Problem ist, dass ich nicht weiß, wie ich eine Abfrage hier einbauen kann. Der grün makierte Bereich funktioniert so leider nicht.
Ich möchte gerne, dass die in der Variabelen $er gespeicherten informationen unterschiedlich angezeigt werden.
Steht da nicht erreichbar, soll es rot sein. Steht da erreichbar, grün. Ich hoffe ihr könnt mir da ein wenig unter die Arme greifen.

Vielen Dank
Kyo

[Kyo1987]

Habe die Lösung gefunden

if ($er eq "erreichbar")
{
$font = "green";
}
else{
$font = "red";
};

$text->tagConfigure('color', -font => "{Arial Fett} 12", -foreground => "$font");

in der Variablen $er ist die Erreichbarkeit gespeichert.
Sollte $er = erreichbar sein wird die Schrift in grün ausgegeben.
Sollte $er aber einen anderen Wert aufweisen, wird er in rot wieder gegeben.

Die Ausgabe sieht dann wie folgt aus:

$text->insert('end',"\n-$er",'color');

[xandros]

OT: bitte verwende für Codeschnipsel die Code-Tags und nicht die Mysql-Tags. Das sieht sonst auf den ersten Blick leicht verwirrend aus. Ich hab das in den obigen Postings mal ausgetauscht.