Question

我有以下Perl代码提示用户是/否答案。如果用户输入的内容不是是/否，请继续提示。没有其他词是可以接受的。我不知道为什么这段代码不起作用。我测试了回答“noooooo”，我希望它再次提示，但它不会进入while循环。

任何人都可以在这里找到我的错误吗？

@files = A, B, C;

foreach $c (@files) {
  if (-e $c  ) { 
     print " $c already exists. Do you want to overwrite?  (yes or no): ";
     chomp ($file_yes_no = <STDIN>);

     while ($file_yes_no !~ m/yes{1}|no{1}/i )  {
         print "$c already exists. Do you want to overwrite?  (yes or no): ";
         chomp ($file_yes_no = <STDIN>);
     }

     if ($file_yes_no =~ m/yes/i ) {
         if (system ("cp -f /home/old_path/ /home/new_path/ == 0) {
             print "$c successfully copied;
         } else {
             die "Error: Copy failed, Check the message above";
         }
     }
 else { print "No files copied\n; }

Answer 1

我只使用字符串相等运算符eq而不是正则表达式。

if( $file_yes_no eq 'yes' ) ...

如果我希望它不区分大小写，我首先会使用lc转换为小写。

正则表达式的问题在于它会顺序匹配任何包含字母yes的字符串。如果您愿意，可以匹配字符串的开头和结尾：

if ($file_yes_no =~ m/^yes$/i ) ...

但我个人更喜欢第一种选择。

哦，我错过了第一部分...嗯。同样的交易，如果你必须使用正则表达式。

m/^(yes|no)$/i

我再次更倾向于避免使用正则表达式

Answer 2

您应该使用以下Perl正则表达式仅匹配yes或no（不区分大小写）：

m/^(yes|no)$/i

仅限是，请使用：

m/^yes$/i

Answer 3

因为你正在使用正则表达式。您可以编写正则表达式以匹配字符串的开头或结尾...像这样：

while( $file_yes_no !~ /^(yes|no)$/ ) {

^和$是字符串的开头和结尾。您也可以省略m。

或者您可以明确检查值：

while( $file_yes_no ne "yes" and $file_yes_no ne "no" ) {

你的系统命令中也有拼写错误，但我假设这只是在这里复制它。你真的不应该分支到shell。查看File::Copy，它会为您提供copy函数

perl完全字符串匹配

3 个答案: