problem with uppercase and lowercase:

[humaid]

hi guys,i have this problem.first let me show you the so far code

#!/user/bin/perl
while ($a = <STDIN>)
{
if ($a =~ tr/A-Z/a-z/)
{
    print "$a\n";
}
if ($a =~ tr/a-z/A-Z/)
{
    print "the uppercase is $a\n";
}
 
elsif ($a =~ tr/[A-Z]/[a-z]/)
{
    $b=$a;
        $b =~ tr/A-Z/a-z/c;
    print "$b\n";
}
}
 

i got the conversion of uppercase to lowercase and vice verse,
but,the problem is i want the first letter of the output in uppercase and remaining in lowercase.

[KevinADC]

You need to get familiar with all of perls builtin functions:

http://perldoc.perl.org/index-functions.html

You will find a function called 'ucfirst' in the above list of functions.

[prlmsnger]

Hi

for getting the first letter in upper case or lowercase,u have to use ^

like this

$x=~s/^[A-Z]/[a-z]/;

hi guys,i have this problem.first let me show you the so far code

#!/user/bin/perl
while ($a = <STDIN>)
{
if ($a =~ tr/A-Z/a-z/)
{
    print "$a\n";
}
if ($a =~ tr/a-z/A-Z/)
{
    print "the uppercase is $a\n";
}
 
elsif ($a =~ tr/[A-Z]/[a-z]/)
{
    $b=$a;
        $b =~ tr/A-Z/a-z/c;
    print "$b\n";
}
}
 

i got the conversion of uppercase to lowercase and vice verse,
but,the problem is i want the first letter of the output in uppercase and remaining in lowercase.

[KevinADC]

Hi

for getting the first letter in upper case or lowercase,u have to use ^

like this

$x=~s/^[A-Z]/[a-z]/;

That is not true, but it is an option that might apply to a particular situation. (Your example will convert the very first letter of a string into lower-case). But that may or may not be what humaid is trying to do. But since humaid has not replied to the question we may never know.

[humaid]

That is not true, but it is an option that might apply to a particular situation. (Your example will convert the very first letter of a string into lower-case). But that may or may not be what humaid is trying to do. But since humaid has not replied to the question we may never know.

hi guys,the problem is,suppose i give the input as,

hi this is humaid
i want the output as:Hi This Is Humaid
this is what iam trying.

[numberwhun]

hi guys,the problem is,suppose i give the input as,

hi this is humaid
i want the output as:Hi This Is Humaid
this is what iam trying.

The following does what you want:

use strict;
use warnings;
 
my $phrase = "this is nobody.";
 
print("Unmodified phrase:  $phrase\n");
 
my @split_phrase = split(/\s/, $phrase);
 
my @new_phrase;
my $var1;
 
 
foreach my $word (@split_phrase)
{
    chomp($word);
    $var1 = ucfirst $word;
    push(@new_phrase, $var1);
}
 
print("@new_phrase");
 

Regards,

Jeff

[KevinADC]

use strict;
use warnings;
my $phrase = "this is nobody.";
$phrase =~ s/(\w+)/ucfirst($1)/eg;
print $phrase;
 

[numberwhun]

use strict;
use warnings;
my $phrase = "this is nobody.";
$phrase =~ s/(\w+)/ucfirst($1)/eg;
print $phrase;
 

Sure, one-up me. I see how you are! ;-|)

See, this is Perl. Just another example that TIMTOWTDI.

Regards,

Jeff

[KevinADC]

Sure, one-up me. I see how you are! ;-|)

See, this is Perl. Just another example that TIMTOWTDI.

Regards,

Jeff

naaaaa.....not one-up-manship. I wasn't going to post code but since code has been posted I figured I'd throw my 2 cents in. humaid can decide what is best for his situation.

BTW.... have you "seen" Miller lately?

[numberwhun]

naaaaa.....not one-up-manship. I wasn't going to post code but since code has been posted I figured I'd throw my 2 cents in. humaid can decide what is best for his situation.

BTW.... have you "seen" Miller lately?

No worries, I was just bustin. Nice way of doing it. I like learning the shortcuts.

As a matter of fact, no, I have not seen our other Moderator around at all and was beginning to wonder if he has dropped off the face of the {forum|earth}. Hopefully he will apparate soon to say hello.

Regards,

Jeff