Opened by Crian at 2003-08-18 15:26
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Es geht auch noch so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
package A;
...
use FindBin;
use lib $FindBin::Bin;
...
machdas();
...
sub _create_module {
open(F, ">$FindBin::Bin/Modul.pm")
or die "Unable to create Modul.pm:$!";
print F "sub machdies { print \"machdies\\n\" }\n";
print F "sub machdas { print \"machdas\\n\" }\n";
print F "1;\n";
close(F) or die "Unable to close Modul.pm:$!";
}
...
BEGIN {
...
A::_create_module();
} # BEGIN
use Modul;
return 1;
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