在被認爲是壞習慣的Perl子程序中使用標籤？

Question

我發現在Perl子程序中使用標籤，從多個循環中斷或重做一些具有更新變量的部件非常有幫助。社區看到這種編碼風格如何？在子程序內使用標籤皺起眉頭？

Answer 1

不。他們的服務完全符合您的描述，我認爲它們是使用得太少的語言的一個很好的功能。另一方面，每當我發現自己在思考標籤的使用時，我也會發現自己想知道我的代碼是否需要重構一些東西。

Answer 2

使用帶有next,last和redo的標籤很好，但您應該暫停以考慮代碼結構是否是最好的。根據我的經驗，除了封閉循環之外，您很少需要使用這些運算符（這意味着您不需要使用標籤）。我們強烈建議您不要使用goto LABEL。

Answer 3

通常沒有理由使用goto LABEL。

例如：

my $i = 10; 
Label: 
# ... 
goto Label if --$i; 

不如寫成：

my $i = 10; 
{ 
    # ... 
    redo if --$i; 
} 

---

我能想到的使用標籤的唯一原因，是打出來的多個循環，或繼續外部循環。

my $i = 10; 
OUTER: while(1){ 
    # ... 
    while(1){ 
    # ... 
    last OUTER unless --$i; 
    } 
} 

my $i = 10; 
OUTER: { 
    # ... 
    { 
    # ... 
    redo OUTER if --$i; 
    } 
}