私はJson文字列を生成していますが、これは適切なJsonを生成していません。私にはそれは良さそうに見えますが、どこかで間違いがあります。どこにあるのか、どうやって削除するのかわかりません。これがソース全体です(非常に短いため)。
use strict;
use warnings;
use JSON qw( decode_json );
sub getJsonStr{
print "Enter the name of the person: ";
my $name = <>;
print "Enter the age of the person: ";
my $age = <>;
my $json = '{
"name" :"'.$name.'",
"age" :"'.$age.'"
}';
}
my $jsonStr = getJsonStr();
print $jsonStr;
my $jobj = decode_json($jsonStr);
JSONで使用する前に、変数から末尾の改行をすべて削除するために、入力を切り詰める必要があります。そしてそれはつまり:$name
$age
my $name = <>;
chomp $name;
my $age = <>;
chomp $age;
これらの改行がエラーの原因でした。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加