N
Nano
Foren As
Hi ich habe folgende Aufgabenstellung und bin der meinung das ich sie wohl zu kompliziert gelöst habe, gibt es da einen einfacheren / saubereren weg ?
Folgende Aufgabenstellung :
Eine Datei enthält einen Text mit Kommentaren die durch stringAnfang und string Ende gekennzeichnet sind. Alle Kommentare sollen ausgegeben werden.
hierfür habe ich den Text in ein array eingelesen und dann folgendes veranstaltet :
es funktioniert, allerdings bin ich mit dem Lösungsweg nicht wircklich zufrieden
Folgende Aufgabenstellung :
Eine Datei enthält einen Text mit Kommentaren die durch stringAnfang und string Ende gekennzeichnet sind. Alle Kommentare sollen ausgegeben werden.
hierfür habe ich den Text in ein array eingelesen und dann folgendes veranstaltet :
Code:
#komplette Datei aus dem Array in einen string schreiben, ohne \n
my $arraystring = "";
foreach my $x (@array){
chomp($x);
$arraystring = $arraystring.$x;
}
#kompletten string nach $stringAnfang.*$stringEnde ( kleinste folge ) absuchen, das Ergebnis in $1 speichern und den rest in $2
while( $arraystring =~ m#$stringAnfang(.*?)$stringEnde(.*)# ){
print "$1 \n";
$arraystring = $2;
}
es funktioniert, allerdings bin ich mit dem Lösungsweg nicht wircklich zufrieden