🚀 go-pugleaf

Urs Steiner <urs.steiner@maximilianeum.ch> wrote:
: Lo zusammen

: ich sollte aus einem file einen Teil ausschneiden (automatisch)

: das ganze sieht so aus :
: fgndghkm
: hmnf
: kjhzkmfizl,ugi<fasel>fdhstgh
: tghrdtzuj
: fehz
: ghjezt<bla>

: und ich sollte alles zwischen <fasel> und <bla> (inklusive) weg
: schneiden
: kennt da einer ne Methode mit nem Script das zu machen '

Ein simples skript koennte so aussehen (geht natuerlich auch kuerzer, aber
das sollte jedem einleuchten):

#!/usr/bin/perl

$a = "<fasel>";
$b = "<bla>";

$state = 0;
while(<>) {
    if($state == 2) { print; }
    if($state == 1) {
		if(/$b/) {
			s/.*$b//;
			$state = 2;
		}
		print;
    }
    if($state == 0) {
		if(/$a/) {
			s/.*$a//;
			$state = 1;
		}
		print;
    }
}

Vorsicht! Wenn blah und fasel auf der gleichen Zeile sind geht das
natuerlich in die Hose. Das Skript fuer diesen Fall anzupassen, ueberlassen
wir dem Leser als Uebungsaufgabe.

Andreas Umbach                       E-Mail: aumbach@g26.ethz.ch
-
If it can't be done in FORTRAN, it's not worth doing it.