Re: Validating hash values


Don't ask to ask, just ask
	PerlMonks

Re: Validating hash values

by tye (Sage)

on Sep 16, 2000 at 03:18 UTC ( [id://32762]=note: print w/replies, xml )

Need Help??

in reply to Validating hash values

sub MysqlIN {
    my %dateparts= ( YEAR => '', MONTH => '', DAY => '', @_ );
    my $element;
    foreach $element ( keys %dateparts ) {
        if (  0 < $dateparts{$element}  ) {
            die "Invalid date value";
        }
    }
    my $mysqldate= join "-", @dateparts{qw(YEAR MONTH DAY)};
    return $mysqldate;
}
[download]

- tye (but my friends call me "Tye")