Perl - 如何与＆＃39; *＆＃39;进行比较字符？

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可用于检查两个字符串是否相等。