Advanced Search

Changing text case utility

/ Published in: Perl
Save to your folder(s)
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

Copy this code and paste it in your HTML 
  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

You need to login to post a comment.