perl - 条件为 "OR"的 While 循环

Question

下面是一个要求用户输入的代码片段，如果输入不是“csv”或“newline”，则调用 while 循环。

对于第 5 行，while 循环尝试将 $format 与“csv”或“newline”相匹配的正确语法是什么？目前它似乎只匹配“csv”。

1 # Request output format
2 print "Format of email addresses required (csv|newline): ";
3 $format = <>;
4 chop($format);
5 while ($format ne ("csv"||"newline")) {
6   print "Invalid format. Enter in csv or newline: ";
7   $format = <>;
8   chop($format);
9 }

Answer 1

如果使用 Perl >= v5.10，最接近您尝试的工作示例是:

while ( not $format ~~ ["csv", "newline"] ) {

否则，rob mayoff的解决方案会工作得很好。