鍦≒erl涓紝鍙互浣跨敤JSON妯″潡鏉ュ鐞咼SON鏁扮粍銆備互涓嬫槸涓€涓鐞咼SON鏁扮粍鐨勭ず渚嬶細

use JSON;
my $json_text = '[1, 2, 3, 4, 5]';
my $json_array = decode_json($json_text);
# 閬嶅巻JSON鏁扮粍
foreach my $element (@$json_array) {
print "$element\n";
}
# 灏咼SON鏁扮粍杞崲涓篜erl鏁扮粍
my @perl_array = @$json_array;

棣栧厛锛屾垜浠娇鐢?code>decode_json鍑芥暟灏咼SON鏂囨湰瑙ｇ爜涓篜erl鏁版嵁缁撴瀯銆傜劧鍚庯紝鎴戜滑鍙互鍍忓鐞嗘櫘閫歅erl鏁扮粍涓€鏍峰鐞嗚繖涓狫SON鏁扮粍銆?/p>