在 Perl 雜湊中新增和刪除元素
使用簡單的賦值運算子只需一行程式碼即可在 Perl 雜湊中新增新鍵/值對。但若要從雜湊中刪除元素,則需要按照下面的例子中所示使用 delete 函式 −
示例
#!/usr/bin/perl %data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40); @keys = keys %data; $size = @keys; print "1 - Hash size: is $size\n"; # adding an element to the hash; $data{'Ali'} = 55; @keys = keys %data; $size = @keys; print "2 - Hash size: is $size\n"; # delete the same element from the hash; delete $data{'Ali'}; @keys = keys %data; $size = @keys; print "3 - Hash size: is $size\n";
輸出
此示例將產生以下結果 −
1 - Hash size: is 3 2 - Hash size: is 4 3 - Hash size: is 3
廣告