aus Liste den Text von IDs zum string (Allgemeines zu Perl)

[thread]20711[/thread]

aus Liste den Text von IDs zum string

Tags: perl5 Ähnliche Threads

Leser: 9

Articles: hide open all | hide show old branches

+7 replies

Gustl

2019-12-21 13:03

User since
2011-01-27
441 Artikel
BenutzerIn

Hallo zusammen,

folgende Anforderung:

Ich habe eine Liste aus einer DB die wie folgt aussieht:

Code: (dl )

[
  {
    "list": "optionsLastschrift",
    "text": "- Bitte auswählen -",
    "value": 0
  },
  {
    "list": "optionsMemberRolle",
    "text": "1. Vorstand",
    "value": 1
  },
  {
    "text": "2. Vorstand",
    "list": "optionsMemberRolle",
    "value": 2
  },
  {
    "text": "Abbuchungsauftrag",
    "list": "optionsLastschrift",
    "value": 2
  },
  {
    "text": "Aktiv",
    "list": "optionsMemberStatus",
    "value": 1
  },
  {
    "list": "optionsLastschrift",
    "text": "Einzugsermächtigung",
    "value": 1
  },
  {
    "value": 7,
    "list": "optionsMemberRolle",
    "text": "Fußball - Spielleiter"
  },
  {
    "value": 5,
    "list": "optionsMemberRolle",
    "text": "Fußballspieler"
  },
  {
    "text": "Fußballtrainier",
    "list": "optionsMemberRolle",
    "value": 6
  },
  {
    "value": 11,
    "text": "Gymnastik",
    "list": "optionsMemberRolle"
  },
  {
    "list": "optionsMemberRolle",
    "text": "Hausmeister",
    "value": 12
  },
  {
    "value": 3,
    "text": "Inaktiv - nicht zahlend",
    "list": "optionsMemberStatus"
  },
  {
    "value": 2,
    "list": "optionsMemberStatus",
    "text": "Inaktiv - zahlend"
  },
  {
    "value": 3,
    "text": "Kassier",
    "list": "optionsMemberRolle"
  },
  {
    "text": "männlich",
    "list": "optionsGeschlecht",
    "value": 1
  },
  {
    "list": "optionsMemberRolle",
    "text": "Schriftführer",
    "value": 4
  },
  {
    "text": "Tennisspieler",
    "list": "optionsMemberRolle",
    "value": 8
  },
  {
    "value": 9,
    "list": "optionsMemberRolle",
    "text": "Tennistrainer"
  },
  {
    "text": "transgender",
    "list": "optionsGeschlecht",
    "value": 3
  },
  {
    "value": 4,
    "list": "optionsMemberStatus",
    "text": "Verstorben"
  },
  {
    "value": 10,
    "text": "Volleyballspieler",
    "list": "optionsMemberRolle"
  },
  {
    "list": "optionsMemberRolle",
    "text": "Webmaster",
    "value": 13
  },
  {
    "text": "weiblich",
    "list": "optionsGeschlecht",
    "value": 2
  }
]

Da drin sind Auswahllisten.
Jetzt habe ich zu einer Person verschiedene Rollen (optionsMemberRolle) in der DB gespeichert.

Beispiel: rolleIds: [3,10]

Ich möchte jetzt einen string aus dieser Liste, in Abhängigkeit von den RolleIds Array.
Raus kommen soll in diesem Beispiel folgendes: "Kassier, Volleyballspieler"

Hier der Aufruf der Sub: getStringChoose( \@chooseList, \@rolleIds, 'optionsMemberRolle')

Code (perl): (dl )

sub getStringChoose{
  my $chooseList = shift; 
  my $ids        = shift;
  my $list       = shift;

  my @listvalues;
  foreach( @{$ids} ){
    my $id = $_;
    my @exists = grep ($_->{list} eq $list && $_->{value} == $id, @{$chooseList});
    push( @listvalues, @exists);
  }
   
  my @arrayJoin;
  foreach(@listvalues){
    push( @arrayJoin, $_->{text} );

  } 
  return (scalar(@listvalues) > 0) ? join(", ",@arrayJoin) : " - ";
}

Es funktioniert schon. Aber es geht doch bestimmt viel einfacher und kürzer oder?

Gruß

+5 replies
haj

2019-12-21 14:46
User since
2015-01-07
527 Artikel
BenutzerIn
Das kommt drauf an... Wenn viele Zugriffe auf die @chooseList erfolgen, dann lohnt es sich, die erst einmal in eine passendere Struktur umzuformulieren. Ansonsten gibt es eine Stelle, die sich direkt kürzer schreiben läßt:
Code (perl): (dl )

1 2 3 4

my @arrayJoin; foreach(@listvalues){ push( @arrayJoin, $_->{text} ); }
Genau für diesen Fall - aus einer Liste wird eine andere gebaut - gibt es die Funktion perlfunc map:
Code (perl): (dl )

my @arrayJoin = map { $_->{text} } @listvalues;
Die Umformulierung ist auch gar nicht so lang: Da erzeuge ich in einer Schleife über die Liste ein "Hash of Lists", die direkt auf die geänderte Funktion getStringChoose2 zugeschnitten ist:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

my %chooseHash = (); foreach my $satz (@chooseList) { $chooseHash{$satz->{list}}[$satz->{value}] = $satz->{text}; } sub getStringChoose2 { my ($hash,$ids,$list) = @_; my $string = join ", ", @{$chooseHash{$list}}[@$ids]; return $string || " - "; } say getStringChoose2 ( \%chooseHash, [3,10], 'optionsMemberRolle');
Man muss sich aber im klaren sein, dass dabei Duplikate (die vielleicht sowieso gar nicht vorkommen dürfen) verschwinden: Wenn ich Deine Datenbank um folgenden Eintrag erweitere:
Code: (dl )

1 2 3 4 5 6

... { "value"=>3, "text"=>"Bierbrauer", "list"=>"optionsMemberRolle" },
...dann erfasst Dein Code beides und gibt Kassier, Bierbrauer, Volleyballspieler aus, während bei meinem nur Bierbrauer, Volleyballspieler rauskommt.
- +4 replies
- Gustl
  
  2019-12-21 16:05
  
  User since
  2011-01-27
  441 Artikel
  BenutzerIn
  
  Hallo,
  
  die Idee "Hash of Lists" ist super, ich brauche diese Liste aber eigentlich nicht so oft.
  
  Die Lösung mit map muss ich mir noch angewöhnen, wusste das es da etwas kürzeres gibt...
  
  Danke dir und schöne Feiertage.
  
  Gruß,
  Jörg
  - +3 replies
  - GwenDragon
    
    2019-12-21 18:08
    
    User since
    2005-01-17
    14532 Artikel
    Admin1
    
    Und map ist oft schneller als irgendeine Schleife.
    
    Die heilige Dreifaltigkeit des Perl Universe bei mir ist map grep depp. äh... sort ;)
    Von der Randalierenden Schwartz' Transformation mal abgesehen. :P
    
    PS: Hatte als Drachin heute schon Ritter und Clowns gefrühstückt.
    Last edited: 2019-12-21 18:10:24 +0100 (CET)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +2 replies
    - rosti
      
      2019-12-21 18:11
      
      User since
      2011-03-19
      3193 Artikel
      BenutzerIn
      
      2019-12-21T17:08:46 GwenDragon
      Und map ist oft schneller als irgendeine Schleife.
      
      Die heilige Dreifaltigkeit des Perl Universe bei mir ist map grep depp. äh... sort ;)
      Von der Randalierenden Schwartz' Transformation mal abgesehen. :P
      
      PS: Hatte als Drachin heute schon Ritter und Clowns gefrühstückst.
      
      Bitte prüfe Deine Rauchmelder auf Funktionstüchtigkeit. Sonst sehe ich Schwartz ;)
      
      SCNR.
      - GwenDragon
        
        2019-12-22 14:29
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Keine Angst, so feuergefährlich ist die Drachin derzeit nicht ;)
        
        Schönen Sonntag noch!
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
rosti

2019-12-21 14:52

User since
2011-03-19
3193 Artikel
BenutzerIn

Bei einer Abfrage mag das OK sein die Liste einmal durchzugehen. Wenn Du jedoch mehrere Abfragen machen willst, lohnt es sich die Liste so umzubauen daß eine assoziative Struktur entsteht und die Werte direkt adressierbar sind.

Noch besser ist es, die Abfrage auf die DB entsprechend zu vormulieren.

MFG

View all threads created 2019-12-21 13:03.