Diamond OP und @ARGV (gelöst) - #169513 (Allgemeines zu Perl)

rosti

2013-08-10 15:05

User since
2011-03-19
3499 Artikel
BenutzerIn

Hintergrund: Das Einlesen mehrerer Dateien (mir gehts um Templates) soll möglichst einfach realisiert werden. Hab jetzt noch einmal einen Test gemacht und das hier funktioniert jetzt einwandfrei (Kein Slurp!):

Code (perl): (dl )

sub _fetchFileContent{
    local @ARGV = @_;
    my $content = '';
    $content .= $_ while <>;
    return $content;
}

PS/Edit: So, fertisch! So muss das gehen:

Code (perl): (dl )

    my $theader = $self->{TMPLDIR}."/tableHeader.tmpl";
    my $tfooter = $self->{TMPLDIR}."/tableFooter.tmpl";
    my $taddrs  = $self->{TMPLDIR}."/tableAddrs.tmpl";
    my $tt = XR->new( files => [$theader, $taddrs, $tfooter], stash => \%stash) or die $@;
    $self->{BODY} = $tt->output;

Und: So geht das auch ;)

Schönes Wochenende!
--Rosti
Last edited: 2013-08-10 18:35:34 +0200 (CEST)