Array: doppelte/ähnliche Einträge entfernen? (Perl/CGI)

[thread]573[/thread]

Array: doppelte/ähnliche Einträge entfernen?

x-man

2005-09-16 22:08

User since
2003-09-11
67 Artikel
BenutzerIn
[default_avatar]

Ich habe eine Liste von Ordnern in dieser Form:

familie
familie/papa
familie/papa/auto
familie/papa/computer
familie/mama
freunde
freunde/michael
freunde/monique
hobbies/sport
hobbies/sport/fussball

Wenn ein Benutzer Zugriff auf einen Ordner hat, kann er auf alle Unterordner zugreifen.

Alle Einträge sind in einem Array gespeichert. Wie kann ich alle Unterordner aus dem Array entfernen, so dass, wie in diesem Beispiel, nur noch "familie", "freunde" und "hobbies/sport" erhalten bleiben:

familie
freunde
hobbies/sport

Danke für Eure Hilfe!

renee

2005-09-17 18:18

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

 my %hash = ();
my @array = qw(familie
familie/papa
familie/papa/auto
familie/papa/computer
familie/mama
freunde
freunde/michael
freunde/monique
hobbies/sport
hobbies/sport/fussball);

for my $elem(@array){
  my ($root) = split(/\//,$elem);
  next if(exists($hash{$root}));
  $hash{$root} = $elem;
}

my @unique = values(%hash);

}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2005-09-16 22:08.