uc/lc with extended ASCII

   1: # Bit quick-and-dirty test-code, but maybe helpful for someone
   2: # Change a string to uppercase or lower case INCLUDING
   3: # extended ASCII
   4: # Usage: CaserSpec("String", 1/0) # Uppercase=1/Lowercase=0
   5: 
   6: sub CaserSpec {
   7: 	my %replace;
   8: 	my $string = @_[0];
   9: 	my %Lreplace = (
  10: 		'Б' => 'б',
  11: 		'А' => 'а',
  12: 		'З' => 'з',
  13: 		'Й' => 'й',
  14: 		'И' => 'и',
  15: 		'Л' => 'л',
  16: 		'Н' => 'н',
  17: 		'М' => 'м',
  18: 		'П' => 'п',
  19: 		'С' => 'с',
  20: 		'У' => 'у',
  21: 		'Т' => 'т',
  22: 		'Ц' => 'ц',
  23: 		'Ъ' => 'ъ',
  24: 		'Щ' => 'щ',
  25: 		'Ь' => 'ь');
  26: 	my %Ureplace = (
  27: 		'б' => 'Б',
  28: 		'а' => 'А',
  29: 		'з' => 'З',
  30: 		'й' => 'Й',
  31: 		'и' => 'И',
  32: 		'л' => 'Л',
  33: 		'н' => 'Н',
  34: 		'м' => 'М',
  35: 		'п' => 'П',
  36: 		'с' => 'С',
  37: 		'у' => 'У',
  38: 		'т' => 'Т',
  39: 		'ц' => 'Ц',
  40: 		'ъ' => 'Ъ',
  41: 		'щ' => 'Щ',
  42: 		'ь' => 'Ь');
  43: 		
  44: 	if(!@_[1]){
  45: 		$string = join('',map {$_ = $Lreplace{$_}||lc($_)} split(//,$string));
  46: 	} else {
  47: 		$string = join('',map {$_ = $Ureplace{$_}||uc($_)} split(//,$string));
  48: 	}
  49: 	return $string;
  50: }

Comment on uc/lc with extended ASCII Download Code

Replies are listed 'Best First'.
Re: uc/lc with extended ASCII by rob_au (Abbot) on Aug 28, 2002 at 11:56 UTC
Interesting and in the spirit of TMTOWTDI ... Using perllocale ... `use locale; $string_lc = lc($string); $string_uc = uc($string);` [download] And using transliteration in place of the replacement hash ... `sub lc { my $string = shift; $string =~ tr/БАЗЙИЛНМПСУТЦЪЩЬ/базйилнмпсутцъщь/; CORE::lc($string); } sub uc { my $string = shift; $string =~ tr/базйилнмпсутцъщь/БАЗЙИЛНМПСУТЦЪЩЬ/; CORE::uc($string); }` [download]	[reply] [d/l] [select]
Re: Re: uc/lc with extended ASCII by Vennis (Pilgrim) on Aug 28, 2002 at 13:16 UTC
I knew i had seen a function (tr), i just didn't remember how it was called and couldn't find it anymore. Shame on me and thanks for you, Makes mapping a bit easier :-)	[reply]
Re: uc/lc with extended ASCII by theorbtwo (Prior) on Aug 28, 2002 at 23:21 UTC
Just a couple of quick (and rather minor) notes: Be careful with your terminology; there is no such thing as "Extended ASCII" -- that, or it's so overloaded a term that it's useless. Extended ASCII could mean any character set which is equivlent to ASCII over 0..126, which is to say almost any character set in common use. I think what you meant to say was ISO-8859-1/15 (which are equiv. except for the euro symbol, which is case-invariant). You could also "use locale", after which lc/uc will do the right thing, or you could convert your data to unicode using input disciplines or Encode. Confession: It does an Immortal Body good.	[reply]
Re: uc/lc with extended ASCII by belg4mit (Prior) on Aug 28, 2002 at 22:36 UTC
Use of the literal bytes is such a waste, chr would condense the code greatly. But I too, would havechosen tr. `-- perl -pew "s/\b;([mnst])/'$1/g"`	[reply]


We don't bite newbies here... much
	PerlMonks