Opened by daemon079 at 2006-03-30 17:10
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
@crain
Sauber! Genau das meine ich auch...
(aber schnallt das dann auch z. B. PAR ?)
Klappt wunderbar!
Hauptskript:
Modul:
ps. kann man Module auch verschachteln ist sowas sinvoll?\n\n
<!--EDIT|master|1143734128-->
Sauber! Genau das meine ich auch...
(aber schnallt das dann auch z. B. PAR ?)
Klappt wunderbar!
Hauptskript:
Code: (dl
)
1
2
3
4
5
6
7
8
9
use FindBin qw($Bin); chdir($Bin);
use lib $FindBin::Bin . '/LIBS';
use X::Testmodul; #in zusätzlichen sub dir "X", daher X::
my $Testmodul = Testmodul->new();
$Testmodul->Modulprint();
print $Testmodul::wurst;
Modul:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
package Testmodul;
$wurst = 1;
sub new {
my $Objekt = shift;
my $Referenz = {};
bless($Referenz,$Objekt);
return($Referenz);
}
sub Modulprint {print "Hier meldet sich das Modul \"Modul.pm\"\n";}
sub get {return $wurst;}
1;
ps. kann man Module auch verschachteln ist sowas sinvoll?\n\n
<!--EDIT|master|1143734128-->
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;