jlzzjlzz亚洲乱熟在线播放

系統城裝機大師 - 唯一官網:www.farandoo.com!

當前位置:首頁 > 腳本中心 > per > 詳細頁面

Perl5和Perl6對比使用Sigils的差別

時間:2020-02-13來源:系統城作者:電腦系統城

我們將看到Sigls(變量名稱開頭處的符號)Perl 5和Perl 6之間的差別。

概述

讓我們從Perl 5和Perl 6中的Sigils概述開始:

符號 Perl5 Perl6
@   Array  Positional
%   Hash  Associative
Subroutine  Callable
Scalar  Item
Typeglob N/a

@(Array vs. Positional)

在perl 5中定義數組時,可以創建一個可擴展的標量值列表,并給它一個帶有sigil的名稱。@:


 
  1. # Perl 5
  2. my @foo = (1,2,3);
  3. push @foo, 42;
  4. say for @foo; # 1?2?3?42?

在perl 6中定義數組時,將創建一個新的列陣對象和綁定它以詞法墊中的那個名字輸入條目。因此:


 
  1. # Perl 6
  2. my @foo = 1,2,3;
  3. push @foo, 42;
  4. .say for @foo; # 1?2?3?42?

在功能上與Perl 5中相同。然而,第一行是用于:


 
  1. # Perl 6
  2. my @foo := Array.new( 1,2,3 );

這將綁定(而不是賦值)一個新的列陣對象指向詞匯定義的名稱。@foo。這,這個,那,那個@perl 6中的sigil表示一個類型約束:如果您想用該sigil將某個東西綁定到lexpad條目中,則它必執行位置角色。要確定一個類是否使用SmartMatch執行某個角色并不困難:


 
  1. # Perl 6
  2. say Array ~~ Positional; # True

您可以認為perl 6中的所有數組都是以與綁定陣列在Perl 5中實現。而這也離事實不遠。如果不深入細節,一個簡單的例子可能會澄清這一點。這,這個,那,那個at-POS方法是實現位置角色。每當需要訪問單個元素時,都會調用此方法。所以,當你寫:

say @a[42]

你正在執行:

say @a.AT-POS(42)

當然,這不是唯一可以實現的方法;更多.

而不是必須綁定您的類來執行位置角色,有一種特殊的語法使用是特質。所以不必寫:


 
  1. # Perl 6
  2. my @a := YourClass.new( 1,2,3 );

你可以寫:


 
  1. # Perl 6
  2. my @a is YourClass = 1,2,3;

在Perl 5中,綁定數組比“普通”數組慢得多。在Perl 6中,數組在啟動時同樣緩慢。幸運的是,rakudo perl 6通過內聯和“在定時”(Jiting)優化熱代碼路徑。操作碼在可能的情況下使用機器代碼。(由于優化器的進步,這種情況發生得更快、更頻繁、更好)。

%(Hash vs. Associative)

Perl 6中的散列實現類似于數組;您還可以將它們視為綁定散列(使用Perl 5術語)。而不是位置用于實現數組的角色,則結合性角色應用于實現散列。

同樣,一個簡單的例子可能會有所幫助。關鍵方法是實現結合性角色。每當需要訪問特定鍵的值時,都會調用此方法。所以,當你寫:

say %h<foo>

你正在執行:

say %h.AT-KEY("foo")

當然,有許多其他方法 你可以實現。

&(Subroutine vs. Callable)

在Perl 5中,只有一種可調用的可執行代碼,即子程序:


 
  1. # Perl 5
  2. sub frobnicate { shift ** 2 }

而且,如果要將子例程作為參數傳遞,則需要獲得對它的引用:


 
  1. # Perl 5
  2. sub do_stuff_with {
  3. my $lambda = shift;
  4. &$lambda(shift);
  5. }
  6. say do_stuff_with( \&frobnicate, 42 ); # 1764

在Perl 6中,多種類型的對象可以包含可執行代碼。他們的共同點是他們消耗了可贖回角色.

Sgil強制綁定到執行可贖回角色,就像%信號與結合性角色和@信號與位置角色。一個與Perl 5非常接近的例子是:


 
  1. # Perl 6
  2. my &foo = sub ($a,$b) { $a + $b }
  3. say foo(42,666); # 708

注意,即使變量具有&Sigil,你知道不需要使用它來執行該變量中的代碼。實際上,如果您在開始與普通的人相比,沒有什么區別分聲明:


 
  1. # Perl 6
  2. BEGIN my &foo = sub ($a,$b) { $a + $b } # same as sub foo()

與Perl 5不同的是,在Perl 6中,開始塊可以是沒有塊的單個語句,因此它與外部共享其詞法范圍。但我們將在以后的文章中更多地討論這個問題。

使用&變量是在編譯時知道某物可執行文件,即使某物還不知道。

還有其他方法可以設置一段代碼以供執行:


 
  1. # Perl 6
  2. my &boo = -> $a, $b { $a + $b } # same, using a Block with a signature
  3. my &goo = { $^a + $^b } # same, using auto-generated signature
  4. my &woo = * + *; # same, using Whatever currying

還可以使用&在簽名內簽名以表示被調用者希望在那里執行什么東西。這使我們回到本節中的前兩個代碼示例:


 
  1. # Perl 5
  2. sub frobnicate { shift ** 2 }
  3. sub do_stuff_with {
  4. my $lambda = shift;
  5. &$lambda(shift);
  6. }
  7. say do_stuff_with( \&frobnicate, 42 ); # 1764

 
  1. # Perl 6
  2. sub frobnicate { $^a ** 2 }
  3. sub do-stuff-with(&lambda, $param) { lambda($param) }
  4. say do-stuff-with( &frobnicate, 42 ); # 1764

注意,在Perl 6中,您不需要接受引用;您可以簡單地傳遞代碼對象如&作為參數。

$(Scalar vs. Item)

與@、%和&Sigils相比,$sigil有點平淡。它不強制執行任何類型檢查,因此可以將其綁定到任何類型的對象。因此,當你寫:


 
  1. # Perl 6
  2. my $answer = 42;

像這樣的事情發生了:


 
  1. # Perl 6
  2. my $answer := Scalar.new(42);

除了在一個很低的水平。因此,如果您想知道,此代碼將無法工作。當你聲明標量變量時,就是這樣。

在Perl 6中,$還指出,其中的任何內容都應被視為單一的項目。因此,即使標量容器中填充了列陣對象時,在需要迭代的情況下,它將被視為單個項:


 
  1. # Perl 6
  2. my @foo = 1,2,3;
  3. my $bar = Array.new(1,2,3); # alternately: [1,2,3]
  4. .say for @foo; # 1?2?3?
  5. .say for $bar; # [1 2 3]

請注意,后一種情況只適用于一迭代VS三在前一種情況下。您可以通過前綴適當的sigil來指示是否要迭代某些內容:


 
  1. # Perl 6
  2. .say for $@foo; # [1 2 3] , consider the array as an item
  3. .say for @$bar; # 1?2?3? , consider the scalar as a list

但也許這會把我們帶到噪音太遠的地方。幸運的是,還有更詳細的等價物:


 
  1. # Perl 6
  2. .say for @foo.item; # [1 2 3] , consider the array as an item
  3. .say for $bar.list; # 1?2?3? , consider the scalar as a list

* (Typeglobs)

正如您可能已經注意到的,Perl 6沒有*sigil或type globs的概念。如果你不知道是什么類型的球體,你不必擔心這個。您可以很好地度過難關,而不必知道Perl 5中復雜的符號表(也可以跳過下一段)。

  • 在Perl 6中,Sigil是存儲在符號表中的名稱的一部分,而在Perl 5中,名稱是在沒有信號的情況下存儲的。例如,在Perl 5中,如果在程序中引用$foo,編譯器將查找foo(沒有sigil),然后獲取相關信息(這是一個數組),并查找它所需的$sigil索引。在Perl 6中,如果引用$foo,編譯器將查找$foo并直接使用與該鍵相關的信息。

請不要混淆用于表示Perl 6中的參數與Perl 5中的Type Gulb SIGL的SLurpy,它們彼此沒有任何關系。

Sigilless variables

Perl 5不支持無符號變量(除了可能的左值子程序,但這確實非常笨拙)。

Perl 6也不直接支持Sigilless變量,但它支持通過前綴反斜杠(\)定義中的名稱:


 
  1. # Perl 6
  2. my \the-answer = 42;
  3. say the-answer; # 42

由于賦值的右邊是常量,這與定義常量基本相同:


 
  1. # Perl 5
  2. use constant the_answer => 42;
  3. say the_answer; # 42
  4. # Perl 6
  5. my constant the-answer = 42;
  6. say the-answer; # 42

如果定義的右邊是別的東西,那就更有趣了。就像一個容器!這允許使用以下語法技巧來獲得無符號變量:


 
  1. # Perl 6
  2. my \foo = $ = 41; # a sigilless scalar variable
  3. my \bar = @ = 1,2,3,4,5; # a sigilless array
  4. my \baz = % = a => 42, b => 666; # a sigilless hash

這基本上是創建匿名詞法實體(標量、數組和哈希),使用正常語義初始化它們,然后綁定生成的對象(標量集裝箱列陣對象,以及散列對象)的名稱,您可以將其用作Perl 6中的任何其他普通變量。


 
  1. # Perl 6
  2. say ++foo; # 42
  3. say bar[2]; # 3
  4. bar[2] = 42;
  5. say bar[2]; # 42
  6. say baz<a b>; # (42 666)

當然,這樣做,您將失去所有的優勢,特別是在插值方面。然后,您將始終需要使用{ }在插值中。


 
  1. # Perl 6
  2. say "The answer is {the-answer}."; # The answer is 42.

在Perl 5的大多數版本中,對應的內容更麻煩:


 
  1. # Perl 5
  2. say "The answer is @{[the_answer]}."; # The answer is 42.

當使用Perl 5概念考慮這些變量時,Perl 6中的所有變量都可以被視為綁定變量。這使得他們在一開始就有點慢。但是在某些基準測試中,運行時優化和熱代碼路徑的JITting(從一點到機器代碼)已經使其速度超過Perl 5變量。

@, %,和&在Perl 6中,不要創建任何特定的對象,而是指示一個類型約束,該約束將應用于名稱綁定到的對象。$Sigil在這方面是不同的,因為沒有要強制執行的類型約束。

@和$前綴分別表示實值化和項化,盡管使用.清單和.項目方法代替。

通過幾個語法技巧,可以不用變量名稱中的任何Sigl來編程Perl 6。

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對我們的支持。如果你想了解更多相關內容請查看下面相關鏈接

分享到:

相關信息

系統教程欄目

欄目熱門教程

人氣教程排行

站長推薦

熱門系統下載