topic Re: Convert variable to uppercase in perl in Operating System - Linux

Convert variable to uppercase in perl

Ratzie — Fri, 30 Jul 2004 15:34:15 GMT

I have a script that prompts a user for input.

I need to make this into uppercase.
Bere in mind that I also cut the first 4 letters off the use as a variable for a file name.

I need what ever the use types in both prompts to be in uppercase.

print "Enter BLD: ";
chomp (my $bld = );
my $bld4=substr $bld,0,4; #Pull first 4 char out of BLD for naming of file

print "Enter in room:";
chomp (my $room = );

open my $fc, ">$bld4.cust_has" or die "$bld4.cust_has: $!";

I have tried when I print to do the \U but I get an error...

print $f join "," => $acode.$a[0],\U$bld, $room, $a[1], $a[2], "\n";

Re: Convert variable to uppercase in perl

Stuart Browne — Fri, 30 Jul 2004 20:15:50 GMT

Why not just use a simple:

y/[a-z]/[A-Z]/;

? like this:

print "Enter BLD: ";
chomp($_ = );
y/[a-z]/[A-Z]/;
my $bld4 = substr( $_, 0, 4 );

Re: Convert variable to uppercase in perl

Bryan Dees — Thu, 26 Aug 2004 17:58:37 GMT

Forgive me if someone replied to this already ask i'm trying to catch up on email after vacation. There is an easier way to do this by using the 'uc' function such as:

print $f join "," => $acode.$a[0],uc $bld, $room, $a[1], $a[2], "\n";

Or you can use ucfirst $_ to set the first character to upper case such as:
ucfirst lc $_

Perl rules...

Re: Convert variable to uppercase in perl

Ross Minkov — Mon, 06 Sep 2004 21:36:25 GMT

Another way to do it is to call the tr command from the perl script:

tr '[:lower:]' '[:upper:]'

Regards,
Ross

Re: Convert variable to uppercase in perl

Alexander Chuzhoy — Tue, 07 Sep 2004 01:35:30 GMT

First do all the necessary actions,then print the result.
For example:
print "Enter some long word\n";
chomp ($var=);
$var=~s/^....(.*)/$1/;
$var=~s/$var/\U$var/;
print "$var\n";
Regards.