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