package and do - #62579 (Allgemeines zu Perl)

esskar

2006-02-03 02:31

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

my $foo = do { package Foo; local $/; <DATA>; };

liesst die _ _ DATA _ _ section im Modul und schreibt die Daten nach $foo

Code: (dl )

1
2

my $class = 'Bar';
my $bar = do { eval "package $bar"; local $/; <DATA>; };

macht das nicht - da wohl eval "package $bar" seinen eigenen scope hat.
wie bekomm ich sowas hin?