Nur die ersten 3 Zeilen einlesen ?

[$xNeTworKx]

Hi,
Wie kann ich am Effizientesten nur die ersten drei Zeilen einer Datei einlesen. Ich könnte es natürlich mit einer for Schleife tun, und die Datei im Listenkontext einlesen, aber ich will im skalaren Kontext bleiben. Üblicherweise lese ich so die Dateien ein.

open (FILE,$file) or die "Cant open $file : $!\n";
local $/;
$in = <FILE>;
close FILE;

Nur wie bringe ich jetzt Perl bei, nur die ersten drei Zeilen der Datei einzulesen ?

$xNeTworKx.

[Robert]

Hi,
Wie kann ich am Effizientesten nur die ersten drei Zeilen einer Datei einlesen. Ich könnte es natürlich mit einer for Schleife tun, und die Datei im Listenkontext einlesen, aber ich will im skalaren Kontext bleiben. Üblicherweise lese ich so die Dateien ein.

open (FILE,$file) or die "Cant open $file : $!\n";

for (my $i = 0; $i < 3; $i++)
{
  my $line = <FILE>;
  $in .= $line;
}

close FILE;

Robert

[$xNeTworKx]

Hi,

open (FILE,$file) or die "Cant open $file : $!\n";

for (my $i = 0; $i < 3; $i++)
{
  my $line = <FILE>;
  $in .= $line;
}

close FILE;

ja stimmt eigentlich. So sollte es klappen, danke. Hab wieder mal zu kompliziert gedacht.

$xNeTworKx.