Help for this page

Select Code to Download

Select or download this

    my @a=('', 'a'..'z', 'A'..'Z', '_');
    v("",3,\@a);
...
            print $p,"\n"
        }
    }