Funktioniert leider nicht:

Quote

$ perl -e 'my $str = "token01:token02:token03:token04"; $str =~ s/:.*?$//; print $str,"\n"'
token01

Edit: Die Regex-Engine beginnt immer "links". Das "nicht-gierig"-sein heißt also: Nimm den erstmöglich Treffer für den Anfang und gehe dann minimal weit nach rechts...
Last edited: 2010-12-15 10:32:42 +0100 (CET)