PERL - Bestimmte Dateizeilen von Datei in andere auslesen

  • Hallo :)
    Ich hoffe, ihr könnt mir weiterhelfen.
    Ich vermute, dass ich nur zu doof bin und das für euch ein leichtes Spiel ist ^^

    Aaalso, ich habe folgendes Problem:
    Ich möchte aus einer bestehenden Datei bestimmte Zeilen auslesen und in eine andere zeilenweise reinkopieren......
    Soweit ganz gut. Als Gerüst hab ich mittlerweile das hier aufgebaut:
    ###########
    use strict 'vars';

    use strict 'vars';

    {my $dateiname = "eingabe.txt";
    my $line;
    my $ausgabe = "ausgabe.txt";
    open (DATEI,$dateiname);
    open (AUSGABE, ">$ausgabe" );
    while ($line= <DATEI>){
    chomp $line;
    print AUSGABE "$line\n";}
    close DATEI;
    close AUSGABE;}
    ############

    Und was fehlt? Ich finde die passenden Kommandos nicht...

    Danke für eure Hilfe :)

  • Hm...

    Versuch mal

    Suche bei "perl file handling" gibt 100te ergebnisse, die auf dein problem passen.

    MfG,