如何檢查Perl腳本的鍵盤輸入格式？

Question

我的Perl腳本只是將您提供的任何輸入作爲輸入，並且我希望通過檢查輸入字符串的模式使其更健壯。我的輸入字符串必須採用格式xxxxx-xxxx-xxxx。我如何檢查？

Answer 1

$foo =~ /^.{5}-.{4}-.{4}\z/s 

例如，它會反覆詢問值，直到獲得有效值。

my $foo; 
while (1) { 
    print("Please provide foo (xxxxx-xxxx-xxxx): "); 
    my $foo = <STDIN>; 
    die("EOF\n") if !defined($foo); 
    chomp($foo); 
    last if $foo =~ /^.{5}-.{4}-.{4}\z/s; 
    print("Invalid input\n"); 
}