<?php
$script_md51=array
(
"tesdf.pl"=>"6775f86ba3d08541dcd9f72d95db7e36" ,
"tesdf2.pl"=>"2222"
);
$enj=json_encode($script_md51);
print "encode=".$enj."\n";
$end= json_decode($enj);
var_dump($end);
?>
结果:
encode={"tesdf.pl":"6775f86ba3d08541dcd9f72d95db7e36","tesdf2.pl":"2222"}
object(stdClass)[1]
public 'tesdf.pl' => string '6775f86ba3d08541dcd9f72d95db7e36' (length=32)
public 'tesdf2.pl' => string '2222' (length=4)
#!/usr/bin/perl -w
#author:jevons zeng
#1.check pid of squid 2.check access.log of squid 3.check netstat 4.check store server
use strict;
use JSON;
use Data::Dumper;
my $jsonCoder = new JSON();
my $arr;
$arr->{"tesdf.pl"}="6775f86ba3d08541dcd9f72d95db7e36";
$arr->{"tesdf2.pl"}="2222";
print Dumper($arr);
my $enj= $jsonCoder->encode($arr);
print "enj=".$enj,"\n";
my $j="{\"tesdf.pl\":\"6775f86ba3d08541dcd9f72d95db7e36\",\"tesdf2.pl\":\"2222\"}";
my $jd = $jsonCoder->decode($j);
print Dumper($jd);
print $jd->{"tesdf.pl"},"\n";
print $jd->{"tesdf2.pl"},"\n";
结果
$VAR1 = {
'tesdf.pl' => '6775f86ba3d08541dcd9f72d95db7e36',
'tesdf2.pl' => '2222'
};
enj={"tesdf.pl":"6775f86ba3d08541dcd9f72d95db7e36","tesdf2.pl":"2222"}
$VAR1 = {
'tesdf.pl' => '6775f86ba3d08541dcd9f72d95db7e36',
'tesdf2.pl' => '2222'
};
6775f86ba3d08541dcd9f72d95db7e36
2222