externes File laden & variable ersetzen - #109958 (Allgemeines zu Perl)

renee

2008-05-20 10:54

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich würde zu einem Templating-System raten. Z.B. CPAN:

HTML::Template::Compiled. Auch wenn dort "HTML" im Namen auftaucht, kann man das Modul auch für ganz normalen Text nehmen.

Aber zu Deiner Frage:

Code (perl): (dl )

my $file = 'template.txt';
my $foo = 'footext';
my $content = '';

{
    local $/;
    open my $fh, '<', $file or die $!;
    $content = <$fh>;
}

$content =~ s/\$foo/$foo/g;
print $content;

statt dem Block kannst Du auch einfach das hier schreiben:

Code (perl): (dl )

my $content = do{ local (@ARGV,$/) = $file; <> };

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/