用TK寫了個(gè)發(fā)送json的小工具

只是一個(gè)紅薯

現(xiàn)遇到一個(gè)問(wèn)題，從多行文本Text()讀取的json數(shù)據(jù)接收后不知道是什么格式
接口取不到參數(shù)，代碼如下：

1. use 5.016;
   
2. use strict;
   
3. use autodie;
   
4. use Mojo::UserAgent;
   
5. use Tk;
   
6. my $ua = Mojo::UserAgent->new;
   
7. my $mw=MainWindow->new;
   
8. $mw->geometry("800x600");
   
9. my $main_frame = $mw->Frame(-background => "white")->pack(-side => 'top', -fill => 'x');
   
10. 
    
11. my $left_frame = $main_frame->Frame(-background => "white")->pack(-anchor=>"nw", -ipadx=>"35");
    
12. my $right_frame = $main_frame->Frame(-background => "white")->pack(-anchor=>"ne");
    
13. my $bottom_frame= $main_frame->Frame(-background=>"white",-width=>"5")->pack(-side=>"bottom",-fill=>'x');
    
14. $bottom_frame->Label(-text=>"output:",-background=>"white")->pack(-side=>"left");
    
15. my $output_text=$bottom_frame->Text(-background => "white", -foreground => "black")->pack(-side => "bottom");
    
16. 
    
17. $left_frame->Label(-text => "Url", -background => "white", -foreground => "black")->pack(-side => "left");
    
18. $right_frame->Label(-text => "input_json", -background => "white", -foreground => "black")->pack(-side => "left");
    
19. 
    
20. my $url_entry = $left_frame->Entry(-background => "white", -foreground => "red",-width=>"70")->pack(-side => "left");
    
21. my $post_button = $left_frame->Button(-text => "post", -command => \&receive_json)->pack(-side => "bottom");
    
22. my $clear_text = $right_frame->Button(-text => "Clear Text", -command => \&clear_entry)->pack(-anchor=>"ne");
    
23. my $json_text = $right_frame->Text(-background => "white", -foreground => "black",-width=>"50",-height=>"20")->pack(-side => "top");
    
24. sub clear_entry {
    
25.     $json_text->delete('0.0', 'end');
    
26.     }
    
27. 
    
28. sub receive_json{
    
29.     my $json = $json_text->get('1.0','end'); #接收json數(shù)據(jù)
    
30.   
    
31.     my $url=$url_entry->get(); #接收post地址
    
32.     my $tx= $ua->post($url=>json=>$json);
    
33. 
    
34.     my $receive= $tx->res->body;
    
35.     $output_text->insert("end", $receive);
    
36. }
    
37. MainLoop;

復(fù)制代碼