Wie füge ich eine Zeile an eine bestimmte Stelle in einer Datei ein?

Zeile einfügen

Einfügen mit Tie::File

#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

# füge 'ein' in die dritte Zeile von test.txt ein
my $file = 'test.txt';
my $insert = 'ein ';

# entscheidendes Stück Code
tie my @array,'Tie::File',$file or die $!;
$array[2] = $insert.$array[2];
untie @array;

Löschen eines Eintrags per Kommandozeile

perl -ni -e'print unless m/^zu löschende Zeile$/' dateiname

Löschen eines Eintrags mit seek und tell

use strict;
use warnings;
use Fcntl ':seek';
open my $fh, '+<', "datei" or die $!;
my $tell = 0;
while (<$fh>) {
  if (m/gesucht/) {
    my @rest = <$fh>;
    seek $fh, $tell, SEEK_SET;
    truncate $fh, $tell;
    print $fh @rest;
    last; 
  } 
  $tell = tell $fh;
} 

Ergänzungen, Kommentare

---+++ Main.??? - 14 Jul 2003 - Betreff