Zeile und Zeichen davor löschen - #162303 (Allgemeines zu Perl)

topeg

2012-10-02 10:03

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Tie::File kenne ich natürlich, und würde ich bei komplexeren Manipulationen auch vorschlagen. Für einen Anfänger halte ich die Version zu Fuß für leichter verständlich.

Aber der Vollständigkeit halber:

Code (perl): (dl )

#!/usr/bin/perl
use strcit;
use warnings;
use Tie::File;

my $file=$ARGV[0] or die("No File defined!\n");

tie( my @data, 'Tie::File', $file ) or die "Can't open $file ($!)\n";

for my $pos ( reverse (0..$#data) )
{
  if($pos>0 and $data[$pos]=~/<SUCHSTRING>/)
  {
    $data[$pos-1]=~s/.\n/\n/;
    splice(@data,$pos,1);
  }
}

print join('',@data);

untie(@data);