[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