请教 Tk 和 threads

perlw01f

问题同 http://www.perlmonks.org/?node_id=783017 一样 就直接照搬那人的了

无cookie情况下输入网站 并点击下载 图片下载下来了
但是
windows 对话框 Perl Command Line Interpreter 遇到问题需要关闭。我们对此引起的不便表示抱歉。

perl
显示错误如下：
Attempt to free non-existent shared string '_TK_RESULT_', Perl interpreter: 0x2e3642c at C:/Perl/lib/Tk.pm line 252.
Attempt to free non-existent shared string '_TK_RESULT_', Perlinterpreter: 0x2e3642c at C:/Perl/lib/Tk/Widget.pm line 98 duringglobal destruction.
Free to wrong pool 2e33d20 not 284fb0 at C:/Perl/lib/Tk/Widget.pm line 98 during global destruction.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use threads;
   
5. my $cks;
   
6. my $url;
   
7. my $filename;
   
8. my $cks_enter;
   
9. my $url_enter;
   
10. my $fnm_enter;
    
11. 
    
12. sub dd{
    
13.   my $thr1 = threads->new(\&d);
    
14.   $thr1->detach();
    
15. }
    
16. 
    
17. use Tk;
    
18. 
    
19. my $mw = MainWindow->new();
    
20. $mw->resizable( 0,0 );
    
21. $mw->title("test");
    
22. 
    
23. my $frame = $mw->Frame(-borderwidth => 2,-relief => 'groove')->pack();
    
24. my $bttn = $mw->Button(-text => "Down",-command => \&dd)->pack(-side => 'left');
    
25. 
    
26. $frame->Label(-text => 'Cookies:')->pack();
    
27. $cks_enter = $frame->Entry(-textvariable => \$cks,-width => 50)->pack();
    
28. 
    
29. $frame->Label(-text => 'URL:')->pack();
    
30. $url_enter = $frame->Entry(-textvariable => \$url)->pack(-expand => 1, -fill => 'x');
    
31. 
    
32. $frame->Label(-text => 'Filename:')->pack();
    
33. $fnm_enter = $frame->Entry(-textvariable => \$filename)->pack(-expand => 1, -fill => 'x');
    
34. MainLoop;
    
35. 
    
36. 
    
37. sub d {
    
38. 
    
39. $cks = $cks_enter->get();
    
40. chomp($cks);
    
41. $url = $url_enter->get();
    
42. chomp($url);
    
43. $filename = $fnm_enter->get();
    
44. chomp($filename);
    
45. use LWP::UserAgent;
    
46. my @headers = (
    
47.    'User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; EN; rv:1.9.0.11) Gecko/2009060215 Firefox/3.5',
    
48.    'cookie' => "$cks",
    
49. );
    
50. 
    
51. my $ua = LWP::UserAgent->new();
    
52. my $req = $ua->get($url,@headers);
    
53. my $cont = $req->content;
    
54. open PIC, ">$filename";
    
55. binmode(PIC);
    
56. print PIC "$cont\n";
    
57. close PIC;
    
58. }
    

复制代码

疑问在这儿：
1. 此处的 threads 是指 生成并维持tk GUI需要一个threads， 而 下载 需要另外一个 是么？
2. 如程序中所示， 目前也是两个threads么？ gui的这个没有声明 但是确实是存在的？
3. 错误信息中提到了 共享变量的问题，是指 $cks、$url、$filename、$cks_enter、$url_enter、$fnm_enter这些变量都需要shared么 因为 dd这个线程中和 产生的gui中都有用到这些变量或对象？还是说需要shared其他的变量？
4. Thread:: Queue 此处需要使用么？

非常感谢！