從Perl-JSON模塊編碼的輸出中排除未取消的鍵

Question

我使用Perl JSON模塊將一些嵌套的Perl對象和數組引用（從解碼JSON輸入獲得）編碼爲漂亮打印的JSON輸出。

到目前爲止，這麼好。但是，我有我想從我的參考輸入刪除鍵：

if (defined $originalJSON->{'myObsoleteKey'}) { 
    undef $originalJSON->{'myObsoleteKey'}; 
} 

它看起來像這樣得到渲染成我的輸出null JSON元素：

{ 
    ... 
    "myObsoleteKey" : null, 
    ... 
} 

我會寧願完全過濾掉。我想我可以編寫一個awk腳本或類似的手動執行此操作，但我希望有一個更清晰的方式在Perl JSON模塊中執行此操作。這是可行的嗎？

Answer 1

不應將散列元素設置爲undef，應該將其完全刪除。

使用

delete $originalJSON->{myObsoleteKey} 

沒有必要首先要檢查它是否存在：如果不存在這樣的元素，則什麼也不會發生。