Siechfred: Textausgabe nach erstem vorkommen von Schlagwort

Beitrag lesen

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

--
Ich bin strenggenommen auch nur interessierter Laie. (molily)
Siechfreds Tagebuch || Falle Aufteilungsbescheid || RT 221 Erfurt-Altstadt i.V.