#!/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;