eine dict innerhalb einer Liste aktualisieren

Question

I haben die Struktur folgende Daten in TCL (Liste der dicts)

Liste [{1 a 2 b} {1 c 2 d} {1 e 2 d}]

Wie Sie sehen können, gibt es drei Dicts mit den gleichen Schlüsseln in einer Liste.

Ich möchte d mit aktualisieren, sagen wir P nur von e ist da, sonst konstruiere das dict {1 e 2 P} und an die Liste anhängen.

Ob ich aktualisieren oder fügen Sie am Ende soll ich dieses haben

Liste [{1 a 2 b} {1 c 2 d} {1 e 2 P}]

Ich weiß, ich kann iterieren und dies erreichen, aber das scheint hässlich. Gibt es dafür eine kürzere Methode? Ich bin nicht sehr vertraut mit TCL erweiterte dict Befehle, so dass jede Hilfe sehr geschätzt

dank

Answer 1

Ansatz 1:

% set input 
{1 a 2 b} {1 c 2 d} {1 e 2 d} 
% #index 2 3 points to 'd' 
% lset x 2 3 P 
{1 a 2 b} {1 c 2 d} {1 e 2 P} 
% 

Ansatz 2:

% set input {{1 a 2 b} {1 c 2 d} {1 e 2 d}} 
{1 a 2 b} {1 c 2 d} {1 e 2 d} 
% #The element to search and replace... 
% set elem {1 e 2 d} 
1 e 2 d 
% 
% lset input [lsearch $input $elem] [dict replace $elem 2 P] 
{1 a 2 b} {1 c 2 d} {1 e 2 P} 
% 

Answer 2

I denke, der einfachste Weg ist, lmap zu verwenden, um über die Liste, conditi zu iterieren only die Wörterbuchtransformation durchführen und ein Flag setzen, wenn es jemals fertig ist. Wenn keine Änderung vorgenommen wurde, fügen Sie das neue Wörterbuch am Ende an.

set input {{1 a 2 b} {1 c 2 d} {1 e 2 d}} 

set replaced 0 
set output [lmap d $input { 
    if {[dict exists $d 1] && [dict get $d 1] eq "e"} { 
     set replaced 1 
     dict set d 2 "P" 
    } 
    set d 
}] 
if {!$replaced} { 
    lappend output [dict create 1 e 2 "P"] 
} 

Wenn Sie 8.5 verwenden sind, können Sie foreach und lappend statt lmap verwenden. Der Code ist ein bisschen länger, wenn Sie es tun.