Problem:
Problem P04: CamelCase

プログラミングにおける識別子（変数や関数）の命名では、
単語を連結した複合語が使われる。
しかし、そのまま連結すると単語の区切りがわからなくなるため、
一般的に以下の命名規則の中から統一するものを選び適用する：

Upper CamelCase　にする

単語を直接連結し複合語とし、各単語の先頭文字のみを大文字にする。

例： GetUserName

Lower CamelCase　にする

単語を直接連結し複合語とし、各単語の先頭文字のみを大文字にする。ただし、複合語の先頭文字は小文字にする。

例： getUserName

アンダースコアで繋ぐ

単語をアンダースコアで連結し複合語とする。単語の文字はすべて小文字にする。

例： get_user_name

与えられた識別子を、指定された命名規則を適用して出力するプログラムを作成せよ。
与えられる識別子は、上記の命名規則のいづれかが既に適用されているものとする。

Input

入力として複数のデータセットが与えられる。各データセットは以下の形式で与えられる：

name type （識別子、命名規則：　空白区切りの文字列と文字）

typeは命名規則を示す文字であり、以下の表の通りとする：

type

命名規則

U

Upper CamelCase にする

L

Lower CamelCase にする

D

アンダースコアで繋ぐ

与えられる識別子の文字数は 1 以上 100 以下である。

type が 'X' のとき入力の終わりとする。この入力に対する出力を行ってはならない。

Output

各データセットについて、命名規則を適用した識別子を1行に出力せよ。

Sample Input

get_user_name L
getUserName U
GetUserName D
EndOfInput X

Output for the Sample Input

getUserName
GetUserName
get_user_name

Solution in Ruby (judge verdict: Accepted)

def up2words str
  low2words(str)[1..-1]
end

def low2words str
  str.gsub! /([A-Z])/, '*\1'
  str.split(?*).map &:downcase
end

def under2wods str
  str.split ?_
end

def what_case str
  return ?D if str.include? ?_
  return ?U if str[0] =~ /[A-Z]/
  return ?L
end

def words2up words
  words.map(&:capitalize).join
end

def words2low words
  result = words2up(words)
  result[0] = result[0].downcase
  result
end

def words2under words
  words.join ?_
end

$<.each do |line|
  str, rule = line.chomp.split
  break if rule == ?X
  str_rule = what_case str
  words = case str_rule
          when ?U
            up2words str
          when ?L
            low2words str
          when ?D
            under2wods str
          end
  result = case rule
           when ?U
             words2up words
           when ?L
             words2low words
           when ?D
             words2under words
           end
  puts result
end