Perl，打开并阅读

Question

如何获取目录内容，并在其中读取文件？

但我无法使用此正则表达式中包含的命令和运算符：

/system|[)(\/}{`;,!\\*_]|open|exec|eval/

我认为这是一项非常艰巨的任务，我不知道如何制作，请帮助我。

Answer 1

如果这是作业，那是我见过的最糟糕的问题之一，所以我假设不是。

perl -E'say for glob chr 42'

或

perl -e'print qx^ ls ^'

或

perl -MFile::Find::Rule -MMIME::Base64 -E's^^decode_base64 "c2F5IGZvciBGaWxlOjpGaW5kOjpSdWxlLT5tYXhkZXB0aCgxKS0+aW4oJy4nKTs="^ee'

---

这很难，因为我们不使用opendir或IO :: Dir而不使用“;”或“,”，不能使用File :: Find ::规则不使用“(”和“)”等。

Answer 2

这是家庭作业吗？如果是，则需要将其标记为。

Perl具有打开，读取和关闭目录的命令。

• 要打开目录，请使用opendir。
• 要读取目录中文件的名称，请使用readdir命令。
• 完成后，您可以使用closedir。

这些命令的工作方式与标准open，read和close命令类似。