I'm trying to understand proper case in perl. What I would like to happen is when someone enters something in a field no matter how they enter it (all CAPS or all lower) it will convert it to Proper Case.
Here is what I tried so far:
In the sub html_record_form {
<input name="Company" value="$rec{'Company'}=~s/([w']+)//g" size="40" type="text">
What showed up was this in the input box: =~s/([w']+)//g
In the sub html_record {
$rec{'company'}=~s/([w']+)//g
Here the company name showed up with this on the end of the record: =~s/([w']+)//g
From what I read this statement should convert this to proper caes. I guess I don't understand how to use it correctly.
Here is what I tried so far:
In the sub html_record_form {
<input name="Company" value="$rec{'Company'}=~s/([w']+)//g" size="40" type="text">
What showed up was this in the input box: =~s/([w']+)//g
In the sub html_record {
$rec{'company'}=~s/([w']+)//g
Here the company name showed up with this on the end of the record: =~s/([w']+)//g
From what I read this statement should convert this to proper caes. I guess I don't understand how to use it correctly.