Code, der Code erzeugt und verwendet: geht das? - #61753 (Allgemeines zu Perl)

Crian

2003-08-18 16:34

User since
2003-08-04
5866 Artikel
ModeratorIn

Hier mal ein funktionierendes Beispiel:

AB.pl

Code (perl): (dl )

#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use A;

A::mach();

A.pm:

Code (perl): (dl )

package A;

use diagnostics;
use strict;
use warnings;

use FindBin;
use lib &#36FindBin::Bin;

sub mach {
    machdies();
    machdas();
}

sub _erzeuge_modul {
   open(F, ">&#36FindBin::Bin/B.pm")
       or die "Unable to create B.pm:&#36!";
   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:&#36!";
}

BEGIN {
   A::_erzeuge_modul();
} # BEGIN

use B;

return 1;

Ausgabe:

Code: (dl )

1
2

machdies
machdas

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