如何用perl去掉json数组元素开头的空格或\t

你可以使用Perl中JSON模块的decode_json函数将JSON字符串解码为Perl中的数据结构，然后使用Perl中的正则表达式去掉数组元素开头的空格或\t，最后再将数据结构转换为JSON字符串即可。以下是示例代码：

use JSON;

my $json_str = '[ "  foo", "\tbar", "baz  " ]';
my $json = decode_json($json_str);

foreach my $item (@$json) {
    $item =~ s/^\s+//; # 去掉开头的空格和\t
}

my $new_json_str = encode_json($json); # 转换回JSON字符串
print $new_json_str;

输出结果为：

["foo","\u0009bar","baz  "]

可以看到，第二个元素的开头的\t已经被去掉了，其他元素开头的空格也被去掉了。