如何检查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"); 
}