Opened by Echelon1010000 at 2005-07-11 14:14
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Ich will noch auf select hinweisen:
Code: (dl
)
1
2
3
4
5
6
7
open (LOGFILE, "> $logname") or die "Kann Logfile '$logname' nicht oeffnen: $!\n";
my $old_stdout = select(LOGFILE);
[...]
close (LOGFILE) or die "Kann Logfile '$logname' nicht schliessen: $!\n";
select($old_stdout);
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