在perl脚本中交替声明严格pragmas时会发生什么？

我是perl新手，正在为我的项目尝试一个示例代码。 当我编写下面给出的代码以在perl中启用严格的pragmas时会发生什么

严格使用

#源代码

没有严格的“变量”

#源代码

使用strict#在下一个pragma定义之前是否启用所有strict pragma？

……源代码

没有严格的“潜艇”#从这里开始，仅禁用SUB strict pragma并启用其他功能？

---

我可以在源代码之间嵌入use Strict Pragma声明吗？

use Strict

是词汇范围的，这意味着它将保持有效“直到封闭块、文件或eval（以先到者为准）。”

我认为最好使用范围来隔离Pragma更改：

use strict;

{
    no strict;
    local $foo = 1;
}

local $bar = 1;

---

这会在设置

条形图时爆炸，但不会在
foo
上爆炸，因为
perldoc strict
：

如果未提供导入列表，则所有
假设存在可能的限制

您可以随时更改有关（“subs”、“vars”和“refs”）的严格要求