[Dresden-pm] Datei Lesen plus schreiben

[Sebastian Oeste]

Hallo, 

Ich wollte ein Perl Skript schreiben mit dem ich eine bestimmte Zeile aus
einer Datei löschen kann. 

#! /usr/bin/perl -w

use strict;
use warnings;
use feature "say";

my ($fh, $i);
open ($fh, "+>", "test.txt") || die qq/cannot open $!/;
my @lines = ();
$i = 0;
while ( <$fh> ) 
{
    push (@lines, $_) unless $i == 2;
    $i ++;
}

for (@lines) 
{
    print $fh "$_\n" ;
}

close ($fh); 

leider funktioniert es nicht mit "+>" die Datei zum lesen und schreiben zu
öffnen. Damit das Skript funktioniert muss ich die Datei erst zum lesen
öffnen, nach dem einlesen wieder schließen und dann zum schreiben öffnen.

Warum funktioniert das nicht ? 
Habt ihr ein Tip für mich wie das noch eleganter geht ? 

Danke im Vorraus, 
Basti