Textausgabe nach erstem vorkommen von Schlagwort

[Markus Schwaiger]

Hallo,

ich habe einen SDTIN-Text bei dem ein bestimmtes Schlagwort bestimmte Teile des Textes unterteilt. Ich kann die Ausgabe jedoch erst nach Vorkommen des ersten Schlagwortes brauchen. Wie kann ich das loesen? Mir ist keine Perl-Funktion ala PHP strstr bekannt.

Vielen Dank und Gruesse aus Oberbayern,

Markus

[Struppi]

ich habe einen SDTIN-Text bei dem ein bestimmtes Schlagwort bestimmte Teile des Textes unterteilt. Ich kann die Ausgabe jedoch erst nach Vorkommen des ersten Schlagwortes brauchen. Wie kann ich das loesen? Mir ist keine Perl-Funktion ala PHP strstr bekannt.

Viele Wege führen nach Rom, kommt auf den konkreten Fall drauf an welcher am besten ist.

entweder mit einer RegExp oder mit index und substr, keine Ahnung was strstr genau macht.

Struppi.

[Siechfred]

Hell-O!

Mir ist keine Perl-Funktion ala PHP strstr bekannt.

Selber machen ist angesagt:

sub strstr {  
  my $string = $_[0] ? shift : 'Syntax error: strstr() called with less then one argument.';  
  my $substr = $_[1] ? shift : undef;  
  defined($substr) ? return substr($string, index($string, $substr)+1) : return $string;  
}

Das wäre eine Sub, die in etwa das tun sollte, was strstr tut.

Siechfred