Regulärer Ausdruck String kürzen (gelöst) - #142227 (Allgemeines zu Perl)

topeg

2010-10-27 11:17

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Man kann das auch fast ohne Regexp lösen (split nutzt Regexps zum zerlegen):

Code (perl): (dl )

if (index($string1,"_aktuell_")>-1) {
        $string2 = join("_",(split("_",$string1,4))[0..2]);
      } else {
        $string2 = $string1;
      }