Perl：如何獲得已在會話文件中使用的列表變量

Question

在我的工作場所，我們有一個webportal，它具有一些核心文件，通過它可以調用其他文件。所以每個人都使用並在核心文件中定義的用戶名和項目ID有一些變量。現在我必須避免使用嚴格的使用相同的變量，但我不想這樣做。那麼如何獲得核心文件中的變量列表？或者在基本情況下如何在使用strict時獲取某個變量$ projectId中的值。

Answer 1

任何未聲明的變量和詞彙範圍爲my是一個包變量。你可以參考一個包變量而不用strict抱怨通過限定變量名與包。因此，如果「核心文件」定義了默認main包變量$projectid，你可以安全地引用其與

$main::projectid 
$::projectid   ($::foo is the same thing as $main::foo) 

，或者如果「核心文件」包含package聲明像package ProjectData;，那麼你可以使用

$ProjectData::projectid 

如果全局變量是從當前的包（例如，兩者的核心文件，並使用默認的包你的腳本），那麼你可以還宣佈與our關鍵字變量滿足strict。

package main; 
our $projectid; 
# now $projectid refers to $main::projectid 
...