Bem tenho um script em perl que formata um json deixando ele nesse formato:
{"nome1":"123","nome2":"123","nome3":"123",}
porem quero que apenas na ultima ocorrencia fique apenas a chave sem a virgula antes. assim:
{"nome1":"123","nome2":"123","nome3":"123"}
Codigo:
open(FILEHANDLE, '<', 'prices.json');
my $file = <FILEHANDLE>;
close(FILEHANDLE);
open(salvar,'>>','730.json');
print salvar "{";
while($file =~ m/"name":"(.*?)","price":(.*?),/ig) {
my $name = $1;
my $price = $2 / 100;
print $name.":".$price."\n";
print salvar '"'.$name.'":"'.$price.'"'.",\n";
}
print salvar "}";