亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 求助��！ 傳遞引用hash出錯(cuò)。。 [打印本頁]
作者: hmilymb    時(shí)間: 2012-11-23 04:24
標(biāo)題: 求助�。� 傳遞引用hash出錯(cuò)。。
本帖最后由 hmilymb 于 2012-11-24 04:54 編輯

由于過于敏感詞 所以還是刪除吧。。。代碼在網(wǎng)絡(luò)上如下
tube8_fetcher.pl
WWW/tube8.pm

1。答疑 tube8 免費(fèi)。
2。翻-墻可看
作者: hmilymb    時(shí)間: 2012-11-23 04:27
搞不懂亞。。。以前也不怎么懂。。求救。。
作者: hmilymb    時(shí)間: 2012-11-23 04:28
本帖最后由 hmilymb 于 2012-11-23 04:29 編輯
  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
復(fù)制代碼
作者: kk861123    時(shí)間: 2012-11-23 09:08
回復(fù) 3# hmilymb


    101，102行沒有問題，根據(jù)103行看104行WWW::Tube8模塊需要的參數(shù)可見%hash1不需要傳遞引用，需要的是整個(gè)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);  #這里怎么寫！�。。。。。。。。。。�！
應(yīng)改為
104.                my $t8 = WWW::Tube8->new(%hash1, \%hash2);  #沒有自行測(cè)試，請(qǐng)樓主測(cè)試看看

作者: hmilymb    時(shí)間: 2012-11-23 10:06
kk861123 發(fā)表于 2012-11-23 09:08
回復(fù) 3# hmilymb


傳進(jìn)去后 能夠 直接 $self->url 得到url，然后ua是這樣調(diào)用的 $self->{ua}
如何做到呢？

你給出來的不行哦。。是不是不需要傳遞2個(gè)參數(shù)。。。。
作者: kk861123    時(shí)間: 2012-11-23 11:13
回復(fù) 5# hmilymb


     sorry，沒看到后面的www/Tube8.pm代碼
  1. my $t8 = WWW::Tube8->new({ %hash1, %hash2});  
復(fù)制代碼
作者: hmilymb    時(shí)間: 2012-11-23 11:28
kk861123 發(fā)表于 2012-11-23 11:13
回復(fù) 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.    
復(fù)制代碼
$bb->{url} 可以打印 'http://www.tube8.com/category/hoge-hoge-/00000/
但是如何  操作才能得到  $bb->url 等于 'http://www.tube8.com/category/hoge-hoge-/00000/

$bb = \$aa ?
就是這里不懂。。
作者: kk861123    時(shí)間: 2012-11-23 11:55
回復(fù) 7# hmilymb


   我想你應(yīng)該去研究這一段代碼：
  1. 11.use base qw(Class::Accessor::Fast);

  3. 12.__PACKAGE__->mk_accessors(

  5. 13.    qw( flv thumb get_3gp

  7. 14.        url id title title_inurl

  9. 15.        category category_url duration related_videos )

  11. 16.);

復(fù)制代碼
作者: hmilymb    時(shí)間: 2012-11-23 13:29
kk861123 發(fā)表于 2012-11-23 11:55
回復(fù) 7# hmilymb


好的謝謝。
作者: gaoyang636    時(shí)間: 2012-11-23 19:02
lz的腳本是用來做“成人做的事情”的……
竟然木有人發(fā)現(xiàn)……要是發(fā)在網(wǎng)易那種地方，得涌現(xiàn)多少神評(píng)論啊 :wink:
我也很喜歡 Rio 這位日本女演員……
這個(gè)網(wǎng)站倒是以前木有聽說過，是免費(fèi)的么……
作者: hmilymb    時(shí)間: 2012-11-24 04:59
終于搞懂了，programming perl 就是給力。。。

傳進(jìn)去后 能夠 直接 $self->url 得到url，然后ua是這樣調(diào)用的 $self->{ua} ,
如何做到呢？
答自己:
bless 把散列引用賦予類



歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2