在文本字段上进行perl验证

Question

我有以下perl代码:

my $pin = <get PIN from submitted web page data>
return “Error” if !defined($pin);
$pin = &trimAndUpper($pin);
# Test for length validity.
return “Error” unless length($pin) == 8;
# Test for hex validity.
return “Error” unless ($pin =~ /^[[:xdigit:]]+$/);
# Good PIN at this point.
sub trimAndUpper {
  my ($str) = @_;
  $str =~ s/^\s+//; # left trim
  $str =~ s/\s+$//; # right trim
  $str =~ tr/a-z/A-Z/; # to upper
  return $str;
}

我将此转换为PHP时遇到问题,有人可以帮忙吗？

Answer 1

我将与你的努力相匹配:http: //www.cs.wcupa.edu/~rkline/perl2php/