converting a string to capitalize first letter of each word 2

[kelly5518]

Hi,

I tried doing this through CSS, but because of an apparent bug in CSS, it doesn't convert the string when it originates as all caps. Strange, I know, but if the text entered is all lowercase or mixed case it works great, but when it's all uppercase, the text-transform: capitalize feature doesn't work.

Anyway, I'd like to try to get it done server-side, but I'm not a programmer and I don't want to mess something up. I was wondering if someone would be kind enough to look at the following code and let me know if there's a simple way to accomplish what I want.

sub Update {
    my $default_permit_html = 0;
    if($FORM{action} eq 'process_update') {
	delete $FORM{action};
	if($FORM{update_text} =~ /[a-zA-Z1-9]/) {
	    my $file = new MongerFile("$Data/defaultdata.ftf");
	    $file->unlink;
	    $file->write($FORM{update_text});
	    $WARN = "Update Complete. The new data will now be displayed on the live page.<br>You can view the updated page <a href=\"/home.shtml\" target=\"_blank\">here</a>.";
	} else {
	    unlink("$Data/defaultdata.ftf");
	    $WARN = "Update Complete. Since your submission was blank,<BR>there is no data to display on the page, but you can view the page <a href=\"/home.shtml\" target=\"_blank\">here</a>.";
	}
	&Update;
    } else {
	my $file = new MongerFile("$Data/defaultdata.ftf");
	&PrintAdminHead;
	print "<CENTER><B>\n";
	if($file->{exists}) {
	    print "This information was last updated:<BR>", $file->modified, ".</B><BR>\n";
	}

Thanks for any suggestions!

 

[TrojanWarBlade]

The regex is easy:

s/(\w+)/ucfirst(lc($1))/ge;

But I don't know what you wish to apply it to.



Trojan.

 

[duncdude]

yuk! hate regex's!!! can't you use substr ?

;-)


Kind Regards
Duncan

 

[TrojanWarBlade]

OK then duncdude, that's a challenge for you!
Write me some code that uses no regexs but uses substr that does it!
Let's see how much code you generate (if you can do it at all!!! ;-) )



Trojan.

 

[duncdude]

mmm - how's this:-

$_ = ucfirst lc($_);

;-)


Kind Regards
Duncan

 

[duncdude]

or a proper attempt at what you asked:-

$_ = lc $_; substr($_,0,1,uc(substr($_,0,1)));


Kind Regards
Duncan

 

[TrojanWarBlade]

That will only capitalise the first word!
tut tut.
;-)


Trojan.

 

[duncdude]

O.K. - i've got a hangover & only just understood the problem correctly. You win!

I don't think i would like to tackle this task (and i wouldn't!) without a regex. I actually quite like them...


Kind Regards
Duncan

 

[TrojanWarBlade]

I know.
I was just teasing you.
Maybe you should get out on the bike and blast a few cobwebs out!



Trojan.

 

[rharsh]

Kelly, please don't use this code - use the regex that Trojan suggested.

Just because...

my $str = 'The quick brown  fOX jUMPs   Over the laZy doG.';

my $i = 0;
while (1) {
    my $last = $i;
    $i = index($str,' ',$last);
    if ($i == $[ - 1) {
        substr($str,$last,length($str) - $last,ucfirst(lc(substr($str,$last,length($str) - $last))));
        last;
    }
    unless (substr($str,$i-1,1) eq ' ') { 
        substr($str,$last,$i,ucfirst(lc(substr($str,$last,$i))));
    }
    $i++;
}

print $str;

Yuck! I'm not sure about index()... does it use the regex engine? If so, this is shot.

 

[duncdude]

i'd probably fall off!


Kind Regards
Duncan

 

[duncdude]

[b]#!/usr/bin/perl[/b]

$_ = "COME ON TROJAN - YOU KNOW REGEX'S ARE RUBBISH! LOOK AT THIS NEAT AND TIDY CODE!!!";

for ($x=0; $x<length $_; $x++) {
  substr($_,$x-1,1) eq " " || $x==0 ? print uc(substr($_,$x,1)) : print lc(substr($_,$x,1));
}

Kind Regards
Duncan

 

[duncdude]

Kelly - Sorry, the post above is intended as a joke! I cannot take responsibility for any use of my ridiculous code As rharsh suggested - use Trojan's solution... without a doubt


Kind Regards
Duncan

 

[TrojanWarBlade]

You guys!!!



Trojan.

 

[duncdude]

Hi Trojan

On a serious note - isn't this a superb example of the power of regex's

... and on a less serious note:-

[b]#!/usr/bin/perl[/b]

$_ = "YOU LAID DOWN THE GAUNTLET!";

do {
  $c = chop;
  substr($_,-1,1) eq " " ? push @s, uc $c : push @s, lc $c;
} while $_;

print ucfirst reverse @s;

Kind Regards
Duncan

 

[TrojanWarBlade]

Less serious or more serious? ;-)
Very good.
But yes, I agree. To do it this way is slow, inefficient and unreadable as well as using chunks of array space needlessly.
That is not to question your solution, it's very good but I think it does show that there are times and places for things and this appears to be the time and place for a regex.



Trojan.

 

[duncdude]

ABSOLUTELY

YLETULOSBA

@array = qw( Y L E T U L O S B A );

Absolutely


Kind Regards
Duncan

 

[kelly5518]

Ok, I guess the consensus is to use the regex that Trojan provided, but how do I apply it to the script? (Perl is like Greek to me.)

The textarea variable that's passed from the form is called update_text.

Thanks everyone.

 

[duncdude]

$FORM{update_text} =~ s/(\w+)/ucfirst(lc($1))/ge;


Kind Regards
Duncan

 

[TrojanWarBlade]

sub Update {
    my $default_permit_html = 0;
    if($FORM{action} eq 'process_update') {
    delete $FORM{action};
    if($FORM{update_text} =~ /[a-zA-Z1-9]/) {
        my $file = new MongerFile("$Data/defaultdata.ftf");
        my $new_update_text = $FORM{update_text};
        $new_update_text =~ s/(\w+)/ucfirst(lc($1))/g;
        $file->unlink;
        $file->write($new_update_text);
        $WARN = "Update Complete. The new data will now be displayed on the live page.<br>You can view the updated page <a href=\"/home.shtml\" target=\"_blank\">here</a>.";
    } else {
        unlink("$Data/defaultdata.ftf");
        $WARN = "Update Complete. Since your submission was blank,<BR>there is no data to display on the page, but you can view the page <a href=\"/home.shtml\" target=\"_blank\">here</a>.";
    }
    &Update;
    } else {
    my $file = new MongerFile("$Data/defaultdata.ftf");
    &PrintAdminHead;
    print "<CENTER><B>\n";
    if($file->{exists}) {
        print "This information was last updated:<BR>", $file->modified, ".</B><BR>\n";
    }

Try that.



Trojan.