Opened by Froschpopo at 2005-04-12 02:42
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
Das ist es noch nicht:
Wenn ich jetzt -background => undef ins Label schreibe, schmiert mir Perl beim Aufruf ab.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = new MainWindow(-background => undef);
$mw->overrideredirect(1); # Fensterdekoration ausschalten;
$mw->Label(-text => "Hallo Welt")->pack();
MainLoop();
Wenn ich jetzt -background => undef ins Label schreibe, schmiert mir Perl beim Aufruf ab.
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
use strict; use warnings; Link zu meiner Perlseite