Как поделиться глобальным параметром в двух разных сценариях perl

Question

На форуме есть тот же вопрос. How to share/export a global variable between two different perl scripts?

Но для этого нужно было использовать декларацию 'our' while, а затем добавить 'require' в другой скрипт. Когда я попытался использовать его, скрипт не сказал: «Использование зарезервированного слова», наш «устарел».

Есть ли другой способ обмена параметром в разных файлах. Благодарю.

Answer 1

Если вы не можете использовать our ключевое слово, то вы должны падать обратно просто используя переменную без объявления его правильно:

{ 
    no strict; 
    $variable = "foo"; # implicitly a global 
} 

Синтаксис

$MyPackage::variable = "foo"; # uses the fully qualified name 

должен работать тоже.

Они позволят вам использовать глобальное, но не будут отображаться видимость имени правильно.

Однако вы должны абсолютно и сразу обновить этот perl - это релиз разработки, а не регулярный выпуск. Текущий релиз - perl5 v16.2.