Opened by anti at 2004-06-07 22:57
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=coax,08.06.2004, 10:03]
[/quote]
Ich fürchte, das kannst Du so nicht machen. Du musst schon unterscheiden, ob da + oder - steht und die --Werte korrekt umrechnen.
Code: (dl
)
my($width, $height, $pos_x, $pos_y) = split(/[x+-]/, $self->geometry());
Ich fürchte, das kannst Du so nicht machen. Du musst schon unterscheiden, ob da + oder - steht und die --Werte korrekt umrechnen.
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