Erwtisi sxetika me perl

[zefos]

Kalispera!

 

Ftiaxnw ena programma k exw ena provlima, 8elw na elegxei ena input na exei mono ari8mous. Exw kanei to exis:

 

if($a =~ m/\d/)

{..}

 

px, an dilwsw $a=7i , de trexei ka8olou

an dilwsw $a=7 douleuei,

an dilwsw omws $a=i7, trexei k bainei mesa stin if enw 8a eprepe apeu8eias na mou bgalei invalid data.

 

Exei kaneis kamia idea?

[GrMikeD]

if($a =~ m/^\d+$/)

{...}

[zefos]

thanks gia tin apantisi, to vrika pantws to la8os mou, thanks k pali!