求助！！ 传递引用hash出错。。

kk861123

回复 3# hmilymb


    101，102行没有问题，根据103行看104行WWW::Tube8模块需要的参数可见%hash1不需要传递引用，需要的是整个hash。
所以
103.                #my $t8 = WWW::Tube8->new( url => $movie->{url}, { ua => LWP::UserAgent->new(show_progress=>1)} );

104.                my $t8 = WWW::Tube8->new(\%hash1, \%hash2);  #这里怎么写！！！！！！！！！！！！！
应改为
104.                my $t8 = WWW::Tube8->new(%hash1, \%hash2);  #没有自行测试，请楼主测试看看

kk861123

回复 5# hmilymb


     sorry，没看到后面的www/Tube8.pm代码

1. my $t8 = WWW::Tube8->new({ %hash1, %hash2});  

复制代码

kk861123

回复 7# hmilymb


   我想你应该去研究这一段代码：

1. 11.use base qw(Class::Accessor::Fast);
   
2. 
   
3. 12.__PACKAGE__->mk_accessors(
   
4. 
   
5. 13.    qw( flv thumb get_3gp
   
6. 
   
7. 14.        url id title title_inurl
   
8. 
   
9. 15.        category category_url duration related_videos )
   
10. 
    
11. 16.);
    
12. 
    

复制代码