#!/usr/bin/perl #dieses Programm liest 2 Dateien ein #danach fragt es nach einem Muster und einen Ersetzungsstring #Es wird in die 2te Datei durch den ersetzungsstring ersetzte #erste Datei geschrieben. print "Einlesedatei: "; chomp($eindatei=); print "Ausgabedatei: "; chomp($ausdatei=); print "Muster: "; chomp($muster=); print "Ersetzung: "; chomp($replace=); open INPUT, "<".$eindatei or die "Konnte Datei nicht für einlesen öffnen: $!"; open OUTPUT, ">".$ausdatei or die "Konnte Datei für ausgeben nicht öffnen: $!"; for () { s/$muster/$replace/g; print OUTPUT; }

TOP Contact me