Perl - 如何与“*”字符进行比较？

Question

我正在编写一个从 config.ini 文件读取的 Perl 脚本。在文件中，我希望能够在 Users 下放置以逗号分隔的特定名称或通配符

示例：

Users=Ninja,David,Moshe

或

Users=*

在我的代码中，我想检查是否 users == * 但我找不到正确的语法。

my $UsersToConfig = &ReadIniFile($InifileName , "Users");

if ( $UsersToConfig eq '"*"' ) {
    @safes = @allSafes
}
else {
    @safes = split /,/, $ConfigOnSafes;
};

我也试过：'*'、'"\*"'、"\*"、'\*'等，但是if结果总是错误的。

有什么想法吗？

Answer 1

你想要

if ( $UsersToConfig eq '*' ) {

---

ReadIniFile($InifileName, "Users") 生成字符串 *.

字符串文字 '*' 和 "*" 生成字符串 *.

eq 可用于检查两个字符串是否相等。