Re: ChAnGiNg CaSe of forms before they are submitted?

by gav^ (Curate)

on Apr 21, 2002 at 03:04 UTC ( [id://160842]=note: print w/replies, xml )

Need Help??

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]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://160842]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having a coffee break in the Monastery: (4)

As of 2024-04-26 05:54 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found