Opened by Klint at 2003-08-27 15:11
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Natürlich, ich arbeite unter Windows.
Selbst wenn ich kein Windows hätte, das wäre doch völlig egal, wennich weiß, dass es unter Windows nicht so ist, reicht das völlig aus. Probier doch mal, aus, was passiert, wenn Du
ausführst. Bei mir kommt a raus (Win2k).
Alles klar?\n\n
<!--EDIT|Crian|1061996909-->
Selbst wenn ich kein Windows hätte, das wäre doch völlig egal, wennich weiß, dass es unter Windows nicht so ist, reicht das völlig aus. Probier doch mal, aus, was passiert, wenn Du
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
open(A, ">A.TXT") or die $!;
print A "A\n";
close A or die $!;
open(A, ">a.txt") or die $!;
print A "a\n";
close A or die $!;
open(A, "A.TXT") or die $!;
while (<A>) { print }
close A or die $!
ausführst. Bei mir kommt a raus (Win2k).
Alles klar?\n\n
<!--EDIT|Crian|1061996909-->
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