advanced code snippet search

Posted By

davidmoreen on 08/09/10


Tagged

text case utility


Versions (?)

Changing text case utility

 / Published in: Perl
 

Just run in your consol window as ./tocase (or whatever you call the file). Be sure to give it proper permission first (chmod 755 tocase) :]

Expand | Embed | Plain Text 
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use 5.010;
  4.  
  5. my ($type, $string);
  6.  
  7. print "What type of case? (upper/lower):\n";
  8. while (<STDIN>) {
  9. 	chomp;
  10. 	if (/^(upper|lower)$/i) {
  11. 		$type = $_;
  12. 		last;
  13. 	} else {
  14. 		print "Invalid type please type upper or lower:\n";
  15. 	}
  16. }
  17.  
  18. print "Please enter your text:\n";
  19. chomp($string = <STDIN>);
  20. given ($type) {
  21. 	when ("upper") { print "\U$string" }
  22. 	when ("lower") { print "\L$string" }
  23. }
  24.  
  25. print "\n";

Report this snippet  

Comments

RSS Icon Subscribe to comments
Posted By: davidmoreen on August 9, 2010

Example: $~ chmod 755 tocase $~ ./tocase What type of case? (upper/lower): upper Please enter your text: hello world HELLO WORLD $~

You need to login to post a comment.