Re: strings to json

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;
[download]

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;
[download]

Comment on Re: strings to json Select or Download Code

Replies are listed 'Best First'.
Re^2: strings to json by ikegami (Patriarch) on Jun 23, 2017 at 15:06 UTC
The first solution is broken; it suffers from JSON-injection bugs. For example, try `my $name = 'Mike "The Coder" Smith';` [download] or `my $pass = 'S3KYU\\3e';` [download]	[reply] [d/l] [select]
Re^3: strings to json by tobyink (Canon) on Jun 24, 2017 at 21:51 UTC
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.	[reply]
Re^4: strings to json by ikegami (Patriarch) on Jun 25, 2017 at 03:35 UTC
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, "johndeo@test.com": "test" }';` [download] But no, the OP used variables for a reason. It's because they are variable. And because of that, your first solution is buggy.	[reply] [d/l]
Re^5: strings to json by Anonymous Monk on Jun 25, 2017 at 03:44 UTC
Re^6: strings to json by ikegami (Patriarch) on Jun 25, 2017 at 03:46 UTC
Some notes below your chosen depth have not been shown here
Re^2: strings to json by bigup401 (Pilgrim) on Jun 23, 2017 at 13:57 UTC
thanks guys	[reply]