Perl regex không vi phạm cho đến khi vòng lặp như mong đợi

Question

Khi tôi in kết quả của regex tôi đang cố gắng sử dụng để kiểm soát vòng lặp cho đến khi nó mang lại cho tôi 1 hoặc null tôi mong đợi. Tại sao mã bên dưới không hoạt động nhưng nếu tôi bỏ ghi chú dòng thứ năm thì nó hoạt động tốt?

print("Please enter 1, 2, 3 or 4 : "); 
my $channelSelection = ""; 

until ($channelSelection =~ /^[1-4]$/) { 
    chomp(my $channelSelection = <STDIN>); 
    #last if ($channelSelection =~ /^[1-4]$/); 
    print ("Invalid choice ($channelSelection) please try again: ") 
     if ($channelSelection !~ /[1-4]/); 
} 

Tôi chắc chắn điều này đã được giải quyết ở nơi khác nhưng không thể tìm thấy bằng tìm kiếm. Chỉ cho tôi đi đúng hướng sẽ là tuyệt vời.

Tôi thường làm như thế.

print("Please enter 1, 2, 3 or 4 : "); 
my $channelSelection = ""; 
while (1) { 
    chomp(my $channelSelection = <STDIN>); 
    last if ($channelSelection =~ /^[1-4]$/); 
    print ("Invalid choice ($channelSelection) please try again: ") if ($channelSelection !~ /[1-4]/); 
} 

Nhưng tôi đang cố thoát khỏi các vòng vô hạn.

Answer 1

Vấn đề ở đây là bạn đang khai báo lại $ channelSelection trong vòng lặp nhưng bên ngoài vòng lặp giữ giá trị cũ. Loại bỏ "của tôi" từ vòng lặp bên trong.

Answer 2

Bạn đã redeclared $channelSelection cục bộ trong vòng lặp cho đến. Bằng cách đó, giá trị của nó sẽ bị mất mỗi khi vòng lặp thực hiện. Vì vậy, cụm từ thông dụng sẽ không khớp với giá trị sau đó của $channelSelection một lần nữa sẽ bằng "".

Xóa my khỏi vòng lặp sẽ giải quyết được sự cố.

Answer 3

Bạn không lo lắng về điều đó?

#!/usr/bin/perl 

use strict; 
use warnings; 

use Term::Menu; 

my @channels = qw(1 2 3 4); 

my $prompt = Term::Menu->new(
    aftertext => 'Please select one of the channels listed above: ', 
    beforetext => 'Channel selection:', 
    nooptiontext => 
     "\nYou did not select a valid channel. Please try again.\n", 
    toomanytries => 
     "\nYou did not specify a valid channel, going with the default.\n", 
    tries => 3, 
); 

my $answer = $prompt->menu(
    map { $_ => [ "Channel $_" => $_ ] } @channels 
); 

$answer //= $channels[0]; 

print "$answer\n"; 

__END__ 

Answer 4

Giải pháp tốt nhất để nhận dữ liệu nhập từ người dùng là sử dụng IO :: Mô-đun nhắc. Nó hỗ trợ lặp lại, xác nhận, hệ thống menu và nhiều hơn nữa.

Answer 5

Đây là vấn đề về phong cách (vì bạn không thể cài đặt mô-đun, nó không giúp bạn), nhưng tôi chỉ muốn chỉ ra rằng khi kiểm tra giá trị cố định, sử dụng regex có lẽ không phải là giải pháp tốt nhất.

Đây là là những gì tôi sẽ làm gì:

use List::MoreUtils; 

my @allowed_values = qw(1 2 3 4); 

# get $answer from prompt. 

if(any { $_ == $answer } @allowed_values) { 
    # All is good. 
} 

Có thể có ích trong một thời gian khác.