vbs perl 操作json

 

Json 文件：

{

   "a": "123",

   "b": "456"

}

1.vbs : https://www.example-code.com/vbscript/json.asp

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set json = CreateObject("Chilkat_9_5_0.JsonObject")
json.EmitCompact = 0

'  Assume the file contains the data as shown above..
success = json.LoadFile("1.json")
If (success <> 1) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
End If
index1 = json.StringOf("a")
outFile.WriteLine(index1)
MsgBox index1

2.perl: https://pkgs.org/download/perl(JSON)下载RPM包

#!/usr/bin/perl

use Encode;
use JSON;
use Data::Dumper;

print "读取json数据...\n";

my $json = new JSON;
my $js;

if(open(MYFILE, "/1.json")) 
{
print "读取json数据成功。\n";
while(<MYFILE>) 
{
$js .= "$_";
}
}else{
print "读取json数据失败。\n";
}

my $obj = $json->decode($js);
print "json数据为:".Dumper($obj);
print $obj->{'uns'};
close(MYFILE);