Re: strings to json

[tobyink]

This will work:

use strict;
use warnings;

my $name = 'mike';
my $age = "20";
my $email = "johndeo\@test.com";
my $pass = "test";
 
my $resp = 
"{
    \"$name\": $age,
    \"$email\": \"$pass\"
}";
 
print $resp;

But escaping is likely to be annoying. I'd personally do something more like this:

use strict;
use warnings;
use JSON::PP;

my $name = 'mike';
my $age = "20";
my $email = "johndeo\@test.com";
my $pass = "test";

my $resp = JSON::PP->new->encode({
  $name  => $age,
  $email => $pass,
});
 
print $resp;

[ikegami]

The first solution is broken; it suffers from JSON-injection bugs. For example, try

my $name = 'Mike "The Coder" Smith';

or

my $pass = 'S3KYU\\3e';

[tobyink]

It's only broken if you change the other code so $name, etc are different.

But if you change the surrounding code, it's possible to break anything.

[ikegami]

Are you seriously going to argue the inputs are constant? If you really believe that, why did you post such stupid solutions? You should have suggested

use strict;
use warnings;

print
'{
    "mike": 20,
    "[e-mail]": "test"
}';

But no, the OP used variables for a reason. It's because they are variable. And because of that, your first solution is buggy.

[bigup401]

thanks guys