2012-02-21T16:13:04 PETER_PAN2009

Ich habe ein Array, welches drei Pfadeinträge beinhaltet:

Code (perl): (dl )

my @array = qw{D:/test/tmp/verz_1, D:/test/tmp/verz_2, D:/test/tmp};

Ich möchte ganz gerne herausfinden, welcher Pfadabschnitt bei den Einträgen gleich ist, in diesem Fall müsste ich als Ergebnis D:/test/tmp bekommen.

1
2
3
4
5

- Die 3 Pfade mit [c]split[/c] in 3 Arrays zerlegen
- Die kürzeste Arraylänge ermitteln ($maxidx)
- Loop 0 .. $maxidx
      Die Elemente des aktuellen Index vergleichen
      last wenn Unterschied gefunden