Leser: 8
8 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use strict; use warnings; use Tk; my $fenster = MainWindow->new(); $fenster->Label(-text => 'Hallöchen Welt')->pack(); MainLoop();
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use strict; use warnings; use utf8; use Tk; my $fenster = MainWindow->new(); $fenster->Label(-text => 'Hallöchen Welt')->pack(); MainLoop();
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use strict; use warnings; my $hallo_1 = "Hallöchen"; print $hallo_1 . "\n"; use utf8; my $hallo_2 = "Hallöchen"; print $hallo_2 . "\n";
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/perl use strict; use warnings; use utf8; use Tk; my $hallo = "Hallöchen"; my $fenster = MainWindow->new(); my $eingabe = $fenster->Entry()->pack(); my $schalter = $fenster->Button(-text => $hallo, -command =>\&loeschen)->pack(); sub loeschen { my $text = $eingabe -> get; print $text . "\n"; } MainLoop();
utf8::encode($string);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!/usr/bin/perl use strict; use warnings; use utf8; use Tk; my $hallo = "Hallöchen"; my $fenster = MainWindow->new(); my $eingabe = $fenster->Entry()->pack(); my $schalter = $fenster->Button(-text => $hallo, -command =>\&loeschen)->pack(); sub loeschen { my $text = $eingabe -> get; utf8::encode($text); print $text . "\n"; } MainLoop();
8 Einträge, 1 Seite |