Package Deklaration in Datei (gelöst) - #179657 (Allgemeines zu Perl)

rosti

2015-02-14 10:36

User since
2011-03-19
3509 Artikel
BenutzerIn

2015-02-14T09:26:26 GwenDragon
Was hindert dich, die Datei als Template anzulegen, vor dem do/require den Inhalt zu ändern?

Das gänge dann mit eval:

Code (perl): (dl )

use strict;
use warnings;
use 5.010;

my $data = do{local $/ = undef; <DATA>};
$data = sprintf $data, 'Foo';

eval "$data";

Foo::foo();


__DATA__

package %s;

sub foo{ say "foo" }
sub bar{ say "bar" }