Eurozeichen in Perl darstellen: wie? (Graphische Oberflächen)

renee

2005-01-03 20:09

User since
2003-08-04
14371 Artikel
ModeratorIn

Hast Du ein use Encode::Unicode; benutzt??

Irgendwo habe ich auch gelesen, dass Unicode erst von Tk804.024 unterstützt wird. Welche Version hast Du??

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pktm

2005-01-03 19:27

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Wie kann ich das "¤" - Zeichen in Perl darstellen?
Wenn ich das einfach mit Tk::Label(-text=>"¤")->pack(); darstelle erhalte ich nur irgendwelche unleserlichen Zeichen (wahrscheinlich, weil ¤ nicht im ASCII-Zeichensatz vorhanden ist...).

mfg pktm

EDIT: auffälliger Typo\n\n

http://www.intergastro-service.de (mein erstes CMS :) )

Crian

2005-01-03 20:11

User since
2003-08-04
5871 Artikel
ModeratorIn

*ins Oberflächenforum verschieb*

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2005-01-04 01:18

User since
2003-08-04
5246 Artikel
ModeratorIn

bei dem Tk, das bei Activestate-Perl 809 dabei ist, ist es

Code: (dl )

chr(128)

.\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

pktm

2005-01-04 21:50

User since
2003-08-07
2921 Artikel
BenutzerIn

[quote=renee,03.01.2005, 19:09]Hast Du ein use Encode::Unicode; benutzt??

Irgendwo habe ich auch gelesen, dass Unicode erst von Tk804.024 unterstützt wird. Welche Version hast Du??[/quote]
Nein, hatte ich nicht benutzt, aber auch mit geht es nicht.
Mal sehen.

http://www.intergastro-service.de (mein erstes CMS :) )

pktm

2005-01-04 21:52

User since
2003-08-07
2921 Artikel
BenutzerIn

Habe übrigens Tk 804.027 (gerade nachgesehen).
chr(128) bringt mir leider den selben blöden Strich :(

http://www.intergastro-service.de (mein erstes CMS :) )

ptk

2005-01-04 22:15

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

So geht es richtig:

Code: (dl )

perl5.8.4 -MTk -e 'tkinit->Label(-text => chr(0x20ac))->pack;MainLoop'

Nicht glauben, was Microsoft sagt: das Eurozeichen liegt auf chr(0x20ac), nicht auf chr(128).

Strat

2005-01-05 00:05

User since
2003-08-04
5246 Artikel
ModeratorIn

bei Tk Version 800.024 funktioniert's anscheinend noch mit dem chr(128 )... bei neueren nicht mehr...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

ptk

2005-01-11 20:34

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

[quote=Strat,04.01.2005, 23:05]bei Tk Version 800.024 funktioniert's anscheinend noch mit dem chr(128 )... bei neueren nicht mehr...[/quote]
Das liegt wahrscheinlich daran, dass Tk804 Unicode-faehig ist. Beim alten Tk wurde einfach das Encoding des Betriebssystems verwendet. Beim neuen Tk sollte man Unicode-Codepoints verwenden.

pktm

2005-01-14 00:00

User since
2003-08-07
2921 Artikel
BenutzerIn

So, jetzt noch besser:
Ich lese gerade etwas aus einer Datenbank aus.
Da sind ne Menge nicht codierter Sonderzeichen drinne.
Kann ich irgendwie einstellen, dass egal was ich ausgebe, diese Sonderzeichen richtig dargestellt werden oder muss ich jetzt wirklich jeden Output-String durch einen Checker laufen lassen und die Sonderzeichen manuell substituieren?
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )