一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

腳本之家,腳本語言編程技術及教程分享平臺!
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務器之家 - 腳本之家 - perl - 一篇文章搞懂:詞法作用域、動態作用域、回調函數及閉包

一篇文章搞懂:詞法作用域、動態作用域、回調函數及閉包

2020-06-26 14:38駿馬金龍 perl

這篇文章主要給大家介紹了如何通過一篇文章搞懂:詞法作用域、動態作用域、回調函數及閉包的相關資料,文中通過示例代碼介紹的非常詳細,對大家的學習或者工作具有一定的參考學習價值,需要的朋友們下面來一起看看吧

前言

把以前一直只限于知道,卻不清晰理解的這幾個概念完完整整地梳理了一番。內容參考自wiki頁面,然后加上自己一些理解。

詞法作用域和動態作用域

不管什么語言,我們總要學習作用域(或生命周期)的概念,比如常見的稱呼:全局變量、包變量、模塊變量、本地變量、局部變量等等。不管如何稱呼這些作用域的范圍,實現它們的目的都一樣:

(1)為了避免名稱沖突;

(2)為了限定變量的生命周期(本文以變量名說事,其它的名稱在規則上是一樣的)。

但是不同語言的作用域規則不一樣,雖然學個簡單的基礎就足夠應用,因為我們有編程規范:(1)盡量避免名稱沖突;(2)加上類似于local的修飾符盡量縮小生效范圍;(3)放進代碼塊,等等。但是真正去細心驗證作用域的生效機制卻并非易事(我學Python的時候,花了很長時間細細驗證,學perl的時候又花了很長時間細細驗證),但可以肯定的是,理解本文的詞法作用域規則(Lexical scoping)和動態作用域規則(dynamic scoping),對學習任何語言的作用域規則都有很大幫助,這兩個規則是各種語言都宏觀通用的。

很簡單的一段bash下的代碼:

?
1
2
3
4
5
x=1
function g(){ echo "g: $x" ; x=2; }
function f(){ local x=3 ; g; echo "f: $x"; } # 輸出2還是3
f   # 輸出1還是3?
echo $x  # 輸出1還是2?

對于bash來說,上面輸出的分別是3(g函數中echo)、2(f函數中的echo)和1(最后一行echo)。但是同樣語義的代碼在其它語言下得到的結果可能就不一樣(分別輸出1、3和2,例如perl中將local替換為my)。

這牽扯到兩種貫穿所有程序語言的作用域概念:詞法作用域(類似于C語言中static)和動態作用域。詞法作用域和"詞法"這個詞真的沒什么關系,反而更應該稱之為"文本段作用域"。要區別它們,只需要回答"函數out_func中嵌套的內層函數in_func能否看見out_func中的環境"。

對于上面的bash代碼來說,假如這段代碼是適用于所有語言的偽代碼:

對于詞法作用域的語言,執行f時會調用g,g將無法訪問f文本段的變量,詞法作用域認為g并不是f的一部分,而是跳出f的,因為g的定義文本段是在全局范圍內的,所以它是全局文本段的一部分。如果函數g的定義文本段是在f內部,則g屬于f文本段的一部分。

  • 所以g不知道f文本段中local x=3的設置,于是g的echo會輸出全局變量x=1,然后設置x=2,因為它沒有加上作用域修飾符,而g又是全局內的函數,所以x將修改全局作用域的x值,使得最后的echo輸出2,而f中的echo則輸出它自己文本段中的local x=3。所以整個流程輸出1 3 2

對于動態作用域的語言,執行f時會調用g,g將可以訪問f文本中的變量,動態作用域認為g是f文本段的一部分,是f中的嵌套函數。

  • 所以g能看到local x=3的設置,所以g的echo會輸出3。g中設置x=2后,僅僅只是在f的內層嵌套函數中設置,所以x=2對g文本段和f文本段(因為g是f的一部分)都可見,但對f文本段外部不可見,所以f中的echo輸出2,最后一行的echo輸出1。所以整個流程輸出3 2 1

總結來說:

  • 詞法作用域是關聯在編譯期間的,對于函數來說就是函數的定義文本段的位置決定這個函數所屬的范圍。
  • 動態作用域是關聯在程序執行期間的,對于函數來說就是函數執行的位置決定這個函數所屬的范圍。

由于bash實現的是動態作用域規則。所以,輸出的是3 2 1。對于perl來說,my修飾符實現詞法作用域規則,local修飾符實現動態作用域規則。

例如,使用my修飾符的perl程序:

?
1
2
3
4
5
6
7
#!/usr/bin/perl
 
$x=1;
sub g { print "g: $x\n"; $x=2; }
sub f { my $x=3; g(); print "f: $x\n"; } # 詞法作用域
f();
print "$x\n";

執行結果:

[fairy@fairy:/perlapp]$ perl scope2.pl
g: 1
f: 3
2

使用local修飾符的perl程序:

?
1
2
3
4
5
6
7
#!/usr/bin/perl
 
$x=1;
sub g { print "g: $x\n"; $x=2; }
sub f { local $x=3; g(); print "f: $x\n"; } # 動態作用域
f();
print "$x\n";

執行結果:

[fairy@fairy:/perlapp]$ perl scope2.pl
g: 3
f: 2
1

有些語言只支持一種作用域規則,特別是那些比較現代化的語言,而有些語言支持兩種作用域規則(正如perl語言,my實現詞法變量作用域規則,local實現動態作用域規則)。相對來說,詞法作用域規則比較好控制整個流程,還能借此實現更豐富的功能(如最典型的"閉包"以及高階函數),而動態作用域由于讓變量生命周期"沒有任何深度"(回想一下shell腳本對函數和作用域的控制,非常傻瓜化),比較少應用上,甚至有些語言根本不支持動態作用域。

閉包和回調函數

理解閉包、回調函數不可不知的術語

1.引用(reference):數據對象和它們的名稱

前文所說的可見、不可見、變量是否存在等概念,都是針對變量名(或其它名稱,如函數名、列表名、hash名)而言的,和變量的值無關。名稱和值的關系是引用(或指向)關系,賦值的行為就是將值所在的數據對象的引用(指針)交給名稱,讓名稱指向這個內存中的這個數據值對象。如下圖:

一篇文章搞懂:詞法作用域、動態作用域、回調函數及閉包

2.一級函數(first-class functions)和高階函數(high-order functions)

有些語言認為函數就是一種類型,稱之為函數類型,就像變量一樣。這種類型的語言可以:

將函數賦值給某個變量,那么這個變量就是這個函數體的另一個引用,就像是第二個函數名稱一樣。通過這個函數引用變量,可以找到函數體,然后調用執行。

  • 例如perl中$ref_func=\&myfunc表示將函數myfunc的引用賦值給$ref_func,那么$ref_func也指向這個函數。

將函數作為另一個函數的參數。例如兩個函數名為myfunc和func1,那么myfunc(func1)就將func1作為myfunc的參數。

  • 這種行為一般用于myfunc函數中對滿足某些邏輯的東西執行func1函數。
  • 舉個簡單的例子,unix下的find命令,將find看作是一個函數,它用于查找指定路徑下符合條件的文件名,將-print-exec {}\;選項實現的功能看作是其它的函數(請無視它是否真的是函數),這些選項對應的函數是find函數的參數,每當find函數找到符合條件的文件名時,就執行-print函數輸出這個文件名

函數的返回值也可以是另一個函數。例如myfunc函數的定義語句為function myfunc(){ ...return func1 }

其實,實現上面三種功能的函數稱之為一級函數或高階函數,其中高階函數至少要實現上面的2和3。一級函數和高階函數并沒有區分的必要,但如果一定要區分,那么:

  • 一級函數更像是一種術語概念,它將函數當作一種值看待,可以將其賦值出去、作為參數傳遞出去以及作為返回值,對于計算機程序語言而言,它更多的是用來描述某種語言是否支持一級函數;
  • 高階函數是一種函數類型,就像回調函數一樣,當某個函數符合高階函數的特性,就可以將其稱之為這是一個高階函數。

3.自由變量(free variable)和約束變量(bound variable)

這是一組數學界的術語。

在計算機程序語言中,自由變量是指函數中的一種特殊變量,這種變量既不在本函數中定義,也不是本函數的參數。換句話說,可能是外層函數中定義的但卻在內層函數中使用的,所以自由變量常常和"非本地變量"(non-local variable,熟悉Python的人肯定知道)互用。例如:

?
1
2
3
4
5
6
7
function func1(x){
 var z;
 function func2(y){
  return x+y+# x和z既不是func2內部定義的,也不是func2的參數,所以x和z都是自由變量
 }
 return func1
}

自由變量和約束變量對應。所謂約束變量,是指這個變量之前是自由變量,但之后會對它進行賦值,將自由變量綁定到一個值上之后,這個變量就成為約束變量或者稱為綁定變量。

例如:

?
1
2
3
4
5
6
7
8
9
10
11
function func1(x){
 var m=20  # 對func2來說,這是自由變量,對其賦值,所以m變成了bound variable
 var z
 function func2(y){
  z=10  # 對自由變量z賦值,z變成bound variable
  return m+x+y+# m、x和z都是自由變量
 }
 return func1
}
 
ref_func=func1(3# 對x賦值,x變成bound variable

回調函數

回調函數一開始是C里面的概念,它表示的是一個函數:

  • 可以訪問另一個函數
  • 當這個函數執行完了,會執行另一個函數

也就是說,將一個函數(B)作為參數傳遞給另一個函數(A),但A執行完后,再自動調用B。所以這種回調函數的概念也稱為"call after"。

但是現在回調函數已經足夠通用化了。通用化的回調函數定義為:將函數B作為另一個函數A的參數,執行到函數A中某個地方的時候去調用B。和原來的概念相比,不再是函數A結束后再調用,而是我們自己定義在哪個地方調用。

例如,Perl中的File::Find模塊中的find函數,通過這個函數加上回調函數,可以實現和unix find命令相同的功能。例如,搜索某個目錄下的文件,然后print輸出這個文件名,即find /path xxx -print

?
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use File::Find;
 
sub print_path {   # 定義一個函數,用于輸出路徑名稱
 print "$File::Find::name\n";
}
 
$callback = \&print_path; # 創建一個函數引用,名為$callback,所以perl是一種支持一級函數的語言
 
find( $callback,"/tmp" ); # 查找/tmp下的文件,每查找到一個文件,就執行一次$callback函數

這里傳遞給find函數的$callback就是一個回調函數。幾個關鍵點:

  • $callback作為參數傳遞給另一個find()函數(所以find()函數是一個高階函數)
  • 在find()函數中,每查找到一個文件,就調用一次這個$callback函數。當然,如果find是我們自己寫的程序,就可以由我們自己定義在什么地方去調用$callback
  • $callback不是我們主動調用的,而是由find()函數在某些情況下(每查找到一個文件)去調用的

回調就像對函數進行填空答題一樣,根據我們填入的內容去復用填入的函數從而實現某一方面的細節,而普通函數則是定義了就只能機械式地復用函數本身。

之所以稱為回調函數,是因為這個函數并非由我們主觀地、直接地去調用,而是將函數作為一個參數,通過被調用者間接去調用這個函數參數。本質上,回調函數和一般的函數沒有什么區別,可能只是因為我們定義一個函數,卻從來沒有直接調用它,這一點感覺上有點奇怪,所以有人稱之為"回調函數",用來統稱這種間接的調用關系。

回調函數可以被多線程異步執行。

徹底搞懂閉包

計算機中的閉包概念是從數學世界引入的,在計算機程序語言中,它也稱為詞法閉包、函數閉包。

閉包簡單的、通用的定義是指:函數引用一個詞法變量,在函數或語句塊結束后(變量的名稱消失),詞法變量仍然對引用它的函數有效。在下一節還有關于閉包更嚴格的定義(來自wiki)。

一篇文章搞懂:詞法作用域、動態作用域、回調函數及閉包

看一個python示例:函數f中嵌套了函數g,并返回函數g

?
1
2
3
4
5
6
7
8
9
10
11
12
13
def f(x):
 def g(y):
  return x + y
 return g # 返回一個閉包:有名稱的函數(高階函數的特性)
 
# 將執行函數時返回的閉包函數賦值給變量(高階函數的特性)
a = f(1)
 
# 調用存儲在變量中閉包函數
print (a(5))
 
# 無需將閉包存儲進臨時變量,直接一次性調用閉包函數
print( f(1)(5) ) # f(1)是閉包函數,因為沒有將其賦值給變量,所以f(1)稱為"匿名閉包"

上面的a是一個閉包,它是函數g()的一個實例。f()的參數x可以被g訪問,在f()返回g函數后,f()就退出了,隨之消失的是變量名x(注意是變量名稱x,變量的值在這里還不一定會消失)。當將閉包f(1)賦值給a后,原來x指向的數據對象(即數值1)仍被a指向的閉包函數引用著,所以x對應的值1在x消失后仍保存在內存中,只有當名為a的閉包被消除后,原來x指向的數值1才會消失。

閉包特性1:對于返回的每個閉包g()來說,不同的g()引用不同的x對應的數據對象。換句話說,變量x對應的數據對象對每個閉包來說都是相互獨立的

例如下面得到兩個閉包,這兩個閉包中持有的自由變量雖然都引用相等的數值1,但兩個數值是不同數據對象,這兩個閉包也是相互獨立的:

?
1
2
a=f(1)
b=f(1)

閉包特性2:對于某個閉包函數來說,只要這不是一個匿名閉包,那么閉包函數可以一直訪問x對應的數據對象,即使名稱x已經消失

但是

?
1
2
3
4
5
a=f(1)   # 有名稱的閉包a,將一直引用數值對象1
a(3)    # 調用閉包函數a,將返回1+3=4,其中1是被a引用著的對象,即使a(3)執行完了也不放開
a(3)    # 再次調用函數a,將返回4,其中1和上面一條語句的1是同一個數據對象
f(1)(3)   # 調用匿名的閉包函數,數據對象1在f(1)(3)執行完就消失
f(1)(3)   # 調用匿名的閉包函數,和上面的匿名閉包是相互獨立的

最重要的特性就在于上面執行的兩次a(3):將詞法變量的生命周期延長,但卻足夠安全。

看下面perl程序中的閉包函數,可以更直觀地看到結果。

?
1
2
3
4
5
6
7
8
9
10
11
sub how_many {    # 定義函數
  my $count=2;   # 詞法變量$count
  return sub {print ++$count,"\n"}; # 返回一個匿名函數,這是一個匿名閉包
}
 
$ref=how_many();  # 將閉包賦值給變量$ref
 
how_many()->();   # (1)調用匿名閉包:輸出3
how_many()->();   # (2)調用匿名閉包:輸出3
$ref->();      # (3)調用命名閉包:輸出3
$ref->();      # (4)再次調用命名閉包:輸出4

上面將閉包賦值給$ref,通過$ref去調用這個閉包,則即使how_many中的$count在how_many()執行完就消失了,但$ref指向的閉包函數仍然在引用這個變量,所以多次調用$ref會不斷修改$count的值,所以上面(3)和(4)先輸出3,然后輸出改變后的4。而上面(1)和(2)的輸出都是3,因為兩個how_many()函數返回的是獨立的匿名閉包,在語句執行完后數據對象3就消失了。

閉包更嚴格的定義

注意,嚴格定義的閉包和前面通俗定義的閉包結果上是不一樣的,通俗意義上的閉包并不一定符合嚴格意義上的閉包。

關于閉包更嚴格的定義,是一段誰都看不懂的說明(來自wiki)。如下,幾個關鍵詞我加粗顯示了,因為重要。

閉包是一種在支持一級函的編程語言中能夠將詞法作用域中的變量名稱進行綁定的技術。在操作上,閉包是一種用于保存函數和環境的記錄。這個環境記錄了一些關聯性的映射,將函數的每個自由變量與創建閉包時所綁定名稱的值或引用相關聯。通過閉包,就算是在作用域外部調用函數,也允許函數通過閉包拷貝他們的值或通過引用的方式去訪問那些已經被捕獲的變量。

我知道這段話誰都看不懂,所以簡而言之一下:一個函數實例和一個環境結合起來就是閉包。這個所謂的環境,決定了這個函數的特殊性,決定了閉包的特性。

還是上面的python示例:函數f中嵌套了函數g,并返回函數g

?
1
2
3
4
5
6
7
def f(x):
  def g(y):
    return x + y
  return g # 返回一個閉包:有名稱的函數
 
# 將執行函數時返回的閉包函數賦值給變量
a = f(1)

上面的a是一個閉包,它是函數g()的一個實例。f()的參數x可以被g訪問,對于g()來說,這個x不是g()內部定義的,也不是g()的參數,所以這個x對于g來說是一個自由變量(free variable)。雖然g()中持有了自由變量,但是g()函數自身不是閉包函數,只有在g持有的自由變量x和傳遞給f()函數的x的值(即f(1)中的1)進行綁定的時候,才會從g()創建一個閉包函數,這表示閉包函數開始引用這個自由變量,并且這個閉包一直持有這個變量的引用,即使f()已經執行完畢了。然后在f()中return這個閉包函數,因為這個閉包函數綁定了(引用)自由變量x,這就是閉包函數所在的環境。

環境對閉包來說非常重要,是區別普通函數和閉包的關鍵。如果返回的每個閉包不是獨立持有屬于自己的自由變量,而是所有閉包都持有完全相同的自由變量,那么閉包雖然仍可稱為閉包,但和普通函數卻沒有區別了。例如:

?
1
2
3
4
5
6
7
8
def f(x):
  x=3
  def g(y):
    return x + y
  return g
 
a = f(1)
b = f(3)

在上面的示例中,x雖然是自由變量,但卻在g()的定義之前就綁定了值(前文介紹過,它稱為bound variable),使得閉包a和閉包b持有的不再是自由變量,而是值對象完全相同的綁定變量,其值對象為3,a和b這個時候其實沒有任何區別(雖然它們是不同對象)。換句話說,有了閉包a就完全沒有必要再定義另一個功能上完全相同的閉包b。

在函數復用性的角度上來說,這里的a和普通函數沒有任何區別,都只是簡單地復用了函數體。而真正嚴格意義上的閉包,除了復用函數體,還復用它所在的環境。

但是這樣一種情況,對于通俗定義的閉包來說,返回的g()也是一個閉包,但在嚴格定義的閉包中,這已經不算是閉包。

再看一個示例:將自由變量x放在g()函數定義文本段的后面。

?
1
2
3
4
5
6
7
8
9
10
def f(y):
  return x+y
 
x=1
 
def g(z):
  x=3
  return f(z)
 
print(g(1))  # 輸出2,而不是4

首先要說明的是,python在沒有給任何作用域修飾符的時候實現的詞法作用域規則,所以上面return f(z)中的f()看見的是全局變量x(因為f()定義在全局文本段中),而不是g()中的x=3。

回到閉包問題上。上面f()持有一個自由變量x,這個f(z)的文本定義段是在全局文本段中,它綁定的自由變量x是全局變量(聲明并初始化為空或0),但是這個變量之后賦值為1了。對于g()中返回的每個f()所在的環境來說,它持有的自由變量x一開始都是不確定的,但是后來都確定為1了。這種情況也不能稱之為閉包,因為閉包是在f()對自由變量進行綁定時創建的,而這個時候x已經是固定的值對象了。

回調函數、閉包和匿名函數

回調函數、閉包和匿名函數其實沒有必然的關系,但因為很多書上都將匿名函數和回調函數、閉包放在一起解釋,讓人誤以為回調函數、閉包需要通過匿名函數實現。實際上,匿名函數只是一個有函數定義文本段,卻沒有名稱的函數,而閉包則是一個函數的實例加上一個環境(嚴格意義上的定義)。

對于閉包和匿名函數來說,仍然以python為例:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
def f(x):
  def g(y):
    return x + y
  return # 返回一個閉包:有名稱的函數
 
def h(x):
  return lambda y: x + y # 返回一個閉包:匿名函數
 
# 將執行函數時返回的閉包函數賦值給變量
a = f(1)
b = h(1)
 
# 調用存儲在變量中閉包函數
print (a(5))
print (b(5))

對于回調函數和匿名函數來說,仍然以perl的find函數為例:

?
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use File::Find;
 
$callback = sub {
  print "$File::Find::name\n";
}; # 創建一個匿名函數以及它的引用
 
find( $callback,"/tmp" ); # 查找/tmp下的文件,每查找到一個文件,就執行一次$callback函數

匿名函數讓閉包的實現更簡潔,所以很多時候返回的閉包函數就是一個匿名函數實例。

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,如果有疑問大家可以留言交流,謝謝大家對服務器之家的支持。

原文鏈接:https://www.cnblogs.com/f-ck-need-u/p/9735955.html

延伸 · 閱讀

精彩推薦
  • perlPerl的經典用法分享

    Perl的經典用法分享

    Perl的經典用法分享,學習perl的朋友可以參考下 ...

    腳本之家6562020-06-06
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一個pragma(預編譯指示符),專門用來預定義全局變量,這些預定義后的全局變量在qw()列表中,在整個引用perl文件中皆可使用,即便使...

    perl教程網6812020-06-16
  • perlPerl從文件中讀取字符串的兩種實現方法

    Perl從文件中讀取字符串的兩種實現方法

    有時候我們需要從文件中讀取字符串,這里簡單介紹下, 需要的朋友可以參考下 ...

    腳本之家6252020-06-08
  • perlperl常見問題集合之二

    perl常見問題集合之二

    哪些平臺上有 Perl?要到哪里去找? Perl的標準發行版(由 perl 發展小組負責維護)僅以原始碼形式發行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz處取得。這個檔...

    腳本之家2102020-05-29
  • perlperl pop push shift unshift實例介紹

    perl pop push shift unshift實例介紹

    perl的pop跟push操作數組的最右邊,shift跟unshift操作數組的最左邊 ...

    腳本之家4612020-06-10
  • perlPerl List::Util模塊使用實例

    Perl List::Util模塊使用實例

    這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表并取出第一個符合條件的、求1到1000之間的和 、求一組數字的最大值與最小...

    腳本之家4712020-06-22
  • perlPerl使用nginx FastCGI環境做WEB開發實例

    Perl使用nginx FastCGI環境做WEB開發實例

    這篇文章主要介紹了Perl使用nginx FastCGI環境做WEB開發實例,實現了路由系統和模板系統,需要的朋友可以參考下...

    Perl教程網2412020-06-18
  • perlperl命令行參數內建數組@ARGV淺析

    perl命令行參數內建數組@ARGV淺析

    這篇文章主要介紹了perl命令行參數內建數組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下 ...

    perl教程網6162020-06-18
主站蜘蛛池模板: 亚洲免费在线视频 | 99热在线获取最新地址 | 欧美成人福利 | 四虎国产欧美成人影院 | 精品一成人岛国片在线观看 | 99热er| 午夜影院在线免费观看 | 成人区精品一区二区毛片不卡 | 日韩精品一区二区三区免费视频 | 日本在线视频播放 | 24adc年龄18岁欢迎大驾光临 | 欧美男女交配 | 日本中文字幕在线视频站 | 四虎在线网站 | 国产精品成人在线播放 | ai换脸明星造梦工厂忘忧草 | leslessexvideos日本 | 国产一区二区在线观看视频 | 亚洲国产区中文在线观看 | 国产精品色爱综合网 | 百合互慰吃奶互揉漫画 | 高h肉爽文农民工 | 久久 这里只精品 免费 | 9热在线精品视频观看 | 日韩一区二区三区四区区区 | 欧美日韩一区二区三区免费不卡 | 亚洲AV无码乱码在线观看浪潮 | 91四虎国自产在线播放线 | 好大好硬好长好爽a网站 | 日本护士撒尿 | 欧美一卡二卡科技有限公司 | 日本在线视频免费观看 | 日本xnxnxnxnxn护士 | 海角社区在线登录 | 国产亚洲视频网站 | 99精品国产高清一区二区三区香蕉 | 女人张开腿让男人桶视频免费大全 | 秘书小说阿蛮 | 万域之王动漫在线观看全集免费播放 | 欧美高清videosex极品 | 女同xx美女放 |