🚀 go-pugleaf

On Wed, 31 Mar 1999 14:50:01 +0200, "Urs Steiner" <urs.steiner@maximilianeum.ch>
wrote in <7dt5iq$3at$1@nerys.maximilianeum.ch>:

Hi Urs,

>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 '

Wie waere es so?
--------------------
#!/usr/local/bin/perl -w

use strict;
my $text;

while (<DATA>) {
  $text .= $_;
}

$text =~ s#<cut>.*?<end>##gs;
print $text;
exit(0);

__END__
This is a test text<cut>
and this is not to be shown<end>
This is the end
And again<cut>This goes away<end> we have more text.
--------------------
Output:
This is a test text
This is the end
And again we have more text.
--------------------

Gruss

Marc