Re: ChAnGiNg CaSe of forms before they are submitted?

Something like:

while (<DATA>) {
    chomp;
    print $_, ': ', (length != tr/A-Z/A-Z/ ? 'ok' : 'not ok'), "\n";
}

__DATA__
blah
BLAH
Blah
[download]

Or you could use s/\b(\w)(\w+)\b/\U$1\L$2/g to force things into sentance case.

gav^

Comment on Re: ChAnGiNg CaSe of forms before they are submitted? Select or Download Code

Replies are listed 'Best First'.
Re: Re: ChAnGiNg CaSe of forms before they are submitted? by jmmorse (Initiate) on Apr 21, 2002 at 03:10 UTC
thanks gav! Sentence case would be great. Do I put the sentence case code in between the != and the ?	[reply]
Re: Re: Re: ChAnGiNg CaSe of forms before they are submitted? by gav^ (Curate) on Apr 21, 2002 at 03:22 UTC
`$str =~ s/\b(\w)(\w+)\b/\U$1\L$2/g;` You should really read perlrequick, perlretut and perlre. Probably a trip to the tutorial section may help. gav^	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.
here is an example by jmmorse (Initiate) on Apr 21, 2002 at 03:18 UTC
`<tr><td valign=top><b>Title/Item Name:</b>No HTML</td><td><input name= +title value=\"$title\" type=text size=50 MAXLENGTH=50></td></tr> <tr><td valign=top bgcolor=#f8f0e0><font><b>Highlighted Bold Listing:< +/b></font></td><td>$bold</td></tr>` [download] Edit by dws to add code tags	[reply] [d/l]