[Vienna-pm] Gleichen Anfang in mehreren Zeilen entfernen

Stefan Weiss spaceman at foo.at
Sun May 22 12:42:18 PDT 2005


On 2005-05-22 21:17, peter pilsl wrote:
> perl -e '$a="hans/kurt/esel\nhans/kurt/emmi"; print $1,"\n" if 
> $a=~/(.*\/).*\n\1/'

Genau das habe ich gesucht. Fertig geschrieben:

if ($str =~ /^(.+\/).*\n(\1.*\n)+$/) {
    $str =~ s/^\Q$1\E//gm;
}

Ich hätte bei meiner Testversion noch etwas mehr Geduld haben sollen...
ich war dann bei /^([^\n]+)[\n]*?\n(\1[\n]*\n)+$/s stehengeblieben, aber
das matcht halt nicht ganz. Ich weiss noch nicht genau warum, aber jetzt
kann ich auch essen gehen :-)

Danke!
stefan


More information about the Vienna-pm mailing list