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

hmilymb

由于过于敏感词 所以还是删除吧。。。代码在网络上如下
tube8_fetcher.pl
WWW/tube8.pm

1。答疑 tube8 免费。
2。翻-墙可看

hmilymb

搞不懂亚。。。以前也不怎么懂。。求救。。

hmilymb

1. perl tube8_fetcher.pl download asian
   
2. 36 movies found.
   
3. 1/36 : http://www.tube8.com/asian/japanese-teen-yukari-fukada-rough-fucking/6809
   
4. 391/
   
5. [japanese-teen-yukari-fukada-rough-fucking_i6809391.flv]
   
6. Wrong number of arguments received at tube8_fetcher.pl line 104
   

复制代码

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);  #没有自行测试，请楼主测试看看

hmilymb

kk861123 发表于 2012-11-23 09:08
回复 3# hmilymb

传进去后 能够 直接 $self->url 得到url，然后ua是这样调用的 $self->{ua}
如何做到呢？

你给出来的不行哦。。是不是不需要传递2个参数。。。。

kk861123

回复 5# hmilymb


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

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

复制代码

hmilymb

kk861123 发表于 2012-11-23 11:13
回复 5# hmilymb

1.    my $aa= {
   
2.         url => 'http://www.tube8.com/category/hoge-hoge-/00000/',
   
3.                 #        ua  => $ua, # optional
   
4.     };
   
5.       $bb = $aa;
   
6.         print Dumper($bb->{url});
   
7.    

复制代码

$bb->{url} 可以打印 'http://www.tube8.com/category/hoge-hoge-/00000/
但是如何  操作才能得到  $bb->url 等于 'http://www.tube8.com/category/hoge-hoge-/00000/

$bb = \$aa ?
就是这里不懂。。

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. 
    

复制代码

hmilymb

kk861123 发表于 2012-11-23 11:55
回复 7# hmilymb

好的谢谢。

gaoyang636

lz的脚本是用来做“成人做的事情”的……
竟然木有人发现……要是发在网易那种地方，得涌现多少神评论啊 :wink:
我也很喜欢 Rio 这位日本女演员……
这个网站倒是以前木有听说过，是免费的么……