Textblock in Datei schreiben - #115955 (Allgemeines zu Perl)

tecker

2008-11-04 17:22

User since
2008-02-26
77 Artikel
BenutzerIn

Ok danke. Hatte mich mit Here Dokumenten bislang noch nicht beschäftigt. Wie kann ich das ganze (also meinen Text) in eine Ausgabe Datei schreiben?

Nicht funktionieren tut:

Code: (dl )

sub header
{
        my $output = @_ ;
        open(OUTPUT, ">$output") or die "Cant open File: $!\n";

        while (<DATA>)
        {
                print OUTPUT;
        }

__DATA__
Mein Text

close(OUTPUT);
}

Auch nicht funktionieren tut

Code: (dl )

sub header
{
        my $output = @_ ;
        open(OUTPUT, ">$output") or die "Cant open File: $!\n";

        my $text <<"END_TEXT";
        Mein Text
END_TEXT

print OUTPUT "$text";
close(OUTPUT);
}

Bekomme bei erstem eine "Missing right curly or square bracket" und bei zweitem einen Syntax Fehler.

P.S. Bei dem was du geschrieben hattest fehlt ein Unterstrich oder? Also __DATA__ statt __DATA_

VG