Който може нека да помага.

Задачата е следната.

Имам една форма в която се вкарват числа и време
Формата е следния за число 1.00 за време hh:mm:ss

Къжете ми как мога с perl да проверя дали вярно са вкарани данните.

За числото май се справиш:
sub isnumber {
if ($_[0] =~ m/^-?[\d]*\.?[\d]*$/) {
return 1;
}else {
return 0;
}
}

Но за времето немога

Помагайте

if(($time=~/(\d{1,2}):(\d{1,2}):(\d{1,2})/) &&($1 >= 0 && $1 <= 23 && $2 >= 0 && $2 <= 59 && $3 >= 0 && $3 <= 59)){
return 1;
}

Благодаря много.

Доста труден ми е този syntax на Perl.

имали някакво ръковдство ????

nai-dobroto i sistematizano(spored men) go ima

Съдържаниет е скрито
Влезте за да го видите