package and do (Allgemeines zu Perl)

[thread]7672[/thread]

package and do

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?

renee

2006-02-03 02:47

User since
2003-08-04
14371 Artikel
ModeratorIn

so klappt es:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $class = 'Foo';
my $foo = do{ eval "package $class; local \$/; <DATA>"};
print $foo;

package Foo;

_ _DATA_ _
Dies
ist
ein 
Test

\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

esskar

2006-02-03 02:54

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

dann verdient dir mal ein paar punkte: http://www.perlmonks.com/?node_id=527511

View all threads created 2006-02-03 02:31.