sybperl-l Archive

From: "Merrill, Hardy" <Hardy dot Merrill at LibertyMutual dot com>
Subject: RE: lower case and upper case
Date: Oct 5 1999 5:36PM

Manjeet,

That should take care of the whole file, one line at a time.

Here is a slightly shorter version, using the default $_ variable instead of
$line:

while () {
    tr/a-z/A-Z/;
}

Hardy Merrill
Hardy.Merrill@LibertyMutual.com

	-----Original Message-----
	From:	Manjeet Kalsi [SMTP:manjeet.kalsi@PRUDENTIAL.COM]
	Sent:	Tuesday, October 05, 1999 1:18 PM
	To:	SybPerl Discussion List
	Subject:	Re: lower case and upper case


	How about this ...

	while ($line = )
	{
	 $line =~ tr/a-z/A-Z/;
	}

	Will take care of the whole file or you can use it on one line.

	Manjeet





	"BAHRI, SOFIENNE" 
	Tuesday October 5, 1999 13:03

	Please respond to SYBPERL-L@listproc.net
	To:   SybPerl Discussion List 
	cc:    (bcc: Manjeet Kalsi/O&S/Prudential)
	Subject:  lower case and upper case



	Hi folks;

	i would like to convert for exemple the srting mtrlpq02k34 to
	MTRLPQ02K34. Which perl function i can use.


	Tnanks....