Error on Datatype Validation

Author Name Status Posted Time Tangaama Coccikeiri 12/14/2007 2:35:20 AM Author is Offline Hi all, im using following perl code to check integer. Code: ( perl ) use Tie::CheckVariables Tie::CheckVariables->on_error(sub {print "ERROR!"} ); tie my $scalar,'Tie::CheckVariables','integer'; #$scalar = 88; $scalar = 'test'; untie $scalar; But i am getting following error. Can't locate Tie/CheckVariables.pm in @INC (@INC contains: /usr/lib/perl5/5.8.3/i586-linux-thread-multi /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.3/i586-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl .) at perl24.plx line 32. ------------------------------------------------------------------------ can any orher way to che ck given is integer or string or Boolean.

Subject Author Status Date Re: Error on Datatype Validation Michael Calcupp 12/15/2007 3:06:16 AM Tangama, Put the CheckVariables code in the same directory as the script that calls it, name it CheckVariables.pm, and you can use it like so: Code: ( text ) use CheckVariables; but if you look at the source code you will see it's using three simple regxeps to determine the type of data: Code: ( text ) my %hash = (integer => qr {^[-+]?\d+$} ,             float   => qr {^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$} ,         string  => qr {.+} ,); you could just use that in your code, but if you are not sure how then use the module as described above. Post Comments Re: Don't understand Tangaama Coccikeiri 12/15/2007 3:08:20 AM Hi Micheal, I can't digest what u mentioned.... Post Comments Re: See this code!! Michael Calcupp 12/15/2007 3:09:45 AM Just do it like this: Code: ( text ) my %hash = (integer => qr {^[-+]?\d+$} ,             float   => qr {^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$} ,         string  => qr {.+} ,);   my $foo = 'test'; my $type = check_type($foo) || 'unknown'; print $type;   sub check_type {    my $t = shift or return(0);    foreach my $type qw(integer float string) {       if ($t =~ $hash {$type} ) {          return $type;       }    } } Post Comments Re: Thanks Tangaama Coccikeiri 12/15/2007 3:11:29 AM  Michel. Thanks for your quick reply. Post Comments Re: Thanks a lot! Regwinder Singh 12/15/2007 3:14:03 AM Hi Michel, Thanks a lot for this piece of code. This has really helped me. But, I am experiencing errors when I am executing this. It says syntax error at line 13, near "$type qw(integer float string)" Could you help me out with this. Thanks..!!! Post Comments

Related Forums Optimizing Images Get a Website Template for Free!!! Get a Website Template for Free!!! Reply to Hesus!!! Do You Sell Your Templates on Ebay?