PERL - Bestimmte Dateizeilen von Datei in andere auslesen

Unregistriert

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

HolyMarcell

Hm...

Versuch mal

Code

use strict 'vars';


{
my $dateiname = "eingabe.txt";
my $line;
my $ausgabe = "ausgabe.txt";
open (DATEI,"<" $dateiname) or die('eingabe');
open (AUSGABE, ">" $ausgabe ) or die('Ausgabe);




while(<DATEI>)
{
  chomp;
  print <AUSGABE> $_;
}


close DATEI;
close AUSGABE;

Alles anzeigen

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

MfG,

Tags