4

我有以下 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; }
4

3 回答 3

10

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

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

如果我想要它不区分大小写，我会先用lc.

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

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

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

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

m/^(yes|no)$/i

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

于 2013-02-05T03:47:55.783 回答
3

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

m/^(yes|no)$/i

仅是，请使用：

m/^yes$/i
于 2013-02-05T03:48:05.413 回答
1

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

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

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

或者您可以明确检查值：

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

此外，您的系统命令中有错字，但我假设这只是在这里复制它。你真的不应该为此分支到外壳。看看File::Copy哪个给你一个copy功能

于 2013-02-05T03:49:41.227 回答