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

bytebrain

2008-11-04 17:28

User since
2008-07-21
20 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

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

        while (<DATA>)
        {
                print OUTPUT;
        }

__DATA__
Mein Text

close(OUTPUT);
}

Das kann so nicht funktioneren.
Du öffnest die Datei $output zum schreiben. Dazu definierst du das Datei-Handle OUTPUT.
Über dieses Datei-Handle sprichst du die Datei letztendlich an.

Du machst jetzt jetzt quasi folgendes:
Schreibe via OUTPUT in Datei $output. Nur sagst du nicht, was geschrieben werden soll ;-)

Probier mal folgendes:

Code (perl): (dl )

while( <DATA> )
{
    print OUTPUT $_;
}

Grüße,
bytebrain