- my %old_by_id = map { $_->{id} => $_ } @$old;
- for my $i (@images) {
- my $id = $i->{id};
- my $o = $old_by_id{$id};
- if ($o) {
- print "\t$id: updated\n";
- $i->{orientation} = $o->{orientation};
- $i->{xfrm} = $o->{xfrm};
- $i->{title} = $o->{title};
- } else {
- print "\t$id: new\n";
+ my %new_by_id = map { $_->{id} => $_ } @images;
+ my @result = ();
+ for my $o (@$old) {
+ my $id = $o->{id};
+ my $i = $new_by_id{$id};
+ if (!$i) {
+ print "\t$id: removed\n";
+ next;