我有跟随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; }
解决方法
我只想使用字符串相等运算符eq而不是正则表达式.
if( $file_yes_no eq 'yes' ) ...
如果我想要它不区分大小写,我首先用lc转换为小写.
你的正则表达式的问题是它将愉快地匹配包含字母是的顺序的任何字符串.如果您愿意,可以匹配字符串的开头和结尾,如下所示：
if ($file_yes_no =~ m/^yes$/i ) ...
但我个人更喜欢第一种选择.
哦,我错过了第一部分…嗯.同样的交易,如果你必须使用正则表达式.
m/^(yes|no)$/i
我再一次更倾向于避免使用正则表达式