#!/usr/bin/perl
# Perl hat Hilfen die das Programmieren vereinfachen.
# diese beiden Zeilen laden Pragmas (Spezielle Module)
# die umfangreichere Fehlermeldungen machen.
# Perl ist damit nicht mehr so tolerant
# gerade wenn man anfängt kann perl mit seinen 
# Variationsmöglichkeiten eher stören als helfen.
use strict;
use warnings;

# es ist immer sinnvoll Fehlermeldungen zu machen
die("Bitte Dateinamen angeben!\n") if(!@ARGV)

# Den übergeben Dateinamen holen
my $file=$ARGV[0];

# Datei öffnen und fehlermeldung wenn es nicht geklappt hat
# $! enthält die Meldung von Perl oder dem System
open(my $fh, '<', $ARGV[0]) or die("Can't open $file ($!)\n")

#foreach (<>) {
# for ist hier schlecht,
# denn es ließt gleich die gesamte Datei ein
# und geht sie dann zeilenweise durch.
# bei while wird immer nur eine Zeile gelesen, das spart RAM


# die alte Zeile:
my $old_line='';

# datei Zeilenweise einlesen
while(my $new_line=<$fh>)
{
  if($new_line=/<Suchstring>/)
  {
    # letztes Zeichen löschen
    $old_line=~s/.\n$/\n/;
    # ganze Zeile löschen
    $new_line='';
  }
  print $old_line;
  $old_line=$new_line;
}
close($fh);

# noch die letzte Zeile ausgeben
print $old_line;

#!/usr/bin/perl
# Perl hat Hilfen die das Programmieren vereinfachen.
# diese beiden Zeilen laden Pragmas (Spezielle Module)
# die umfangreichere Fehlermeldungen machen.
# Perl ist damit nicht mehr so tolerant
# gerade wenn man anfängt kann perl mit seinen 
# Variationsmöglichkeiten eher stören als helfen.
use strict;
use warnings;

# es ist immer sinnvoll Fehlermeldungen zu machen
die("Bitte Dateinamen angeben!\n") if(!@ARGV)

# Den übergeben Dateinamen holen
my $file=$ARGV[0];

# Datei öffnen und fehlermeldung wenn es nicht geklappt hat
# $! enthält die Meldung von Perl oder dem System
open(my $fh, '<', $ARGV[0]) or die("Can't open $file ($!)\n")
# die ganze Datei lesen. Kein Zeilentrenner.
$/=undef;
# alles in "$data" einlesen
my $data=<$fh>;
# Datei schließen
close($fh);

# alles "ENGINE=MyISAM" suchen
# und durch "ENGINE=InnoDB" ersetzen
$data=~s/ENGINE=MyISAM/ENGINE=InnoDB/gs;

# alles <irgend ein zeichen>"\n"<irgendwas><SUCHSTRING><irgendwas>"\n" suchen
# und durch "\n" ersetzen
$data=~s/.\n.*?<SUSCHSTRING>.*?\n/\n/gs;

print $data;