perl 生成json树

 #perl -w use strict; use Encode;  #use Encode 'from_to'; use Data::Dumper; use JSON;  my @OrgRows = ();  my %id_data = ();  my %id_chirdren = (); my $firstid = "0";  &readdata(); sub readdata(){ my $

>>阅读原文<<