何か

    if($type =~ /^(?:tiny|small|medium|big)?int\((\d+)\)/) {
      my $len = $1;
      if($vars{$r->{Field}} =~ /^\d{1,$len}$/) {
        if(length($vars{$r->{Field}}) > $len) {
          print "Field \"$r->{Field}\" cannot be more than $len digits long.";
          exit(1);
        }
      }else{
        print "Field \"$r->{Field}\" must be a number.";
        exit(1);
      }
    }elsif($type =~ /^varchar\((\d+)\)/) {
      my $len = $1;
      if(length($vars{$r->{Field}}) > $len) {
        print "Field \"$r->{Field}\" cannot be more than $len characters long.";
        exit(1);
      }
    }