Gleiche Pfadangaben herausfinden (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-04-07 18:15:15
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
4 Gäste

[thread]17174[/thread]

submit to reddit

Gleiche Pfadangaben herausfinden

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+2 replies
PETER_PAN2009

2012-02-21 17:13
User since
2009-08-24
111 Artikel
BenutzerIn
Hallo zusammen!

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.

Meine Überlegung:
- Per RegEx $array[0] bis zum ersten "/" extrahieren, diesen String mit den anderen Einträgen vergeleichen. Wenn ok, bis zum nächsten "/" extrahieren, vergleichen und so weiter!

Über Verbesserungsvorschläge würde ich mich sehr freuen ;)!

Danke und Gruß
PeterPan
- GUIfreund
  
  2012-02-21 18:55
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  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.
  
  Ich würde so vorgehen:
  
  Code: (dl )
  
  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
  
  Gruß
  GUIfreund

View all threads created 2012-02-21 17:13.