perl完全字符串匹配

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

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