Opened by Crian at 2003-08-18 15:26
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Bei mir sieht es jetzt so aus (noch um FindBin aufgebrezelt, damit das neue "Modul" (naja ...) nicht in allen Verzeichnissen erstellt wird, aus denen ein Programm aufgrufen wird, welches mein Modul nutzt):
Irgendwo im normalen Programmablauf kann ich dann etwa
aufrufen und erhalte die entsprechende Ausgabe.
Nun mache ich mich daran, und fülle die Funktionen (umbenannt) mit sinnvollem Inhalt... aber das müsste dann ja auch gehen.
... ich berichte ;)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
BEGIN {
...
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
use FindBin;
use lib $FindBin::Bin;
use Modul;Irgendwo im normalen Programmablauf kann ich dann etwa
Code: (dl
)
machdas();
aufrufen und erhalte die entsprechende Ausgabe.
Nun mache ich mich daran, und fülle die Funktionen (umbenannt) mit sinnvollem Inhalt... aber das müsste dann ja auch gehen.
... ich berichte ;)
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