Mega Code Archive

 

Categories / Perl / Language Basics

 

A case-conversion program

#!/usr/local/bin/perl  print ("Enter a line of input:\n");  $inputline = <STDIN>;  print ("uppercase: \U$inputline\E\n");  print ("lowercase: \L$inputline\E\n");  print ("as a sentence: \L\u$inputline\E\n");