Help for this page

Select Code to Download

Select or download this

    use constant MIN_CHAR => scalar 1;
    use constant MAX_CHAR => scalar 12;

    print 'x '.MIN_CHAR.'-'.MAX_CHAR.' x';

Select or download this

    my %constants = (
        min_char => 1,
        max_char => 12
    );

    print "x $constants{'min_char'}-$constants{'max_char'} x";