Perl String Заменить?

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, изменять структуру данных, и записать его обратно.

См. JSON для одного модуля, который сделает это за вас.

Answer 2

Заменить:

$string = s/\{//; 

с:

$string =~ s/\{//; 

Answer 3

Как уже говорилось ранее в потоке, другой подход заключается в использовании JSON::XS модуль, он будет быстрее чем JSON и к тому же, как redbmk сказал, он лучше обрабатывает UTF-8.