Opened by Crian at 2004-01-15 16:29
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
[quote=renee,15.01.2004, 15:36]schau Dir das hier mal an: www.ifh.de/computing/documentation/perl/perl12/perlteil12.ppt[/quote]
Sauber, da stand der entscheidende Tipp : cursorfont.h !
Jetzt gehts mit
*freu*
Sauber, da stand der entscheidende Tipp : cursorfont.h !
Jetzt gehts mit
Code: (dl
)
1
2
3
4
5
my $oc = $Config{text_widget}->cget(-cursor);
$Config{text_widget}->configure(-cursor => 'watch');
speichere_aktuellen_ds();
speichere_daten();
$Config{text_widget}->configure(-cursor => $oc);*freu*
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