Perl字符串替换？

Question

我的字符串如下所示，我想删除第一个{没有任何东西只有第一个字符串的开头。字符串在替换之前打印正常但在替换其空字符串之后。

use strict;
use warnings;

my $string = {"something":[{"some":"12","some":"something","data":"","data":"data2","age":"23"},{......},{.....}]}

# the string is valid as it is json from some array function.

print $string."\n";   #My string prints fine here
 $string = s/\{//;

print "String after replacement".".$string." testing";

Answer 1

我强烈建议您使用现有的，经过测试的调试JSON模块来读取JSON，修改数据结构并将其写回来。

请参阅JSON了解一个可以为您完成此操作的模块。

Answer 2

替换：

$string = s/\{//;

使用：

$string =~ s/\{//;

Answer 3

如前所述，另一种方法是使用JSON::XS模块，它会更快  比JSON更像redbmk所说，它更好地处理UTF-8。