このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/613
#  MySQLダンプ内の 
#   
#  /*------------------ここから--------------------*/ 
#  DROP TABLE IF EXISTS `table100`; 
#  /*!40101 SET @saved_cs_client     = @@character_set_client */; 
#  /*!40101 SET character_set_client = utf8 */; 
#  CREATE TABLE `table100` ( 
#    `code1` varchar(5) default NULL, 
#    `zip1` varchar(7) default NULL, 
#    `address1` varchar(250) default NULL, 
#    `address2` varchar(250) default NULL, 
#    `div_1` varchar(1) default NULL, 
#    `div_2` varchar(1) default NULL, 
#    `import_date` timestamp NULL default NULL, 
#    `rec_key1` int(10) unsigned NOT NULL auto_increment, 
#    PRIMARY KEY  (`rec_key1`) 
#  ) ENGINE=InnoDB AUTO_INCREMENT=121471 DEFAULT CHARSET=eucjpms; 
#  /*!40101 SET character_set_client = @saved_cs_client */; 
#  /*------------------ここまで--------------------*/ 
#   
#  `table100` → `TABLE100` 
#  `code1` → `CODE1` 
#  など逆クォートで囲まれた小文字→大文字変換を一括で行いたいです。。 
#  できればlinux コマンドライン、perl などでお願いします。。 
#   

'逆クォートで囲まれた小文字-大文字変換を一括で行いたい'(_文字列,_変換した文字列) :-
        sub_atom(_文字列,St,Len,_,S1,S2,S3,L1,['`'|R2],['`'|R3]),
        \+(append(_,['`'|_],R2)),
        concat_atom(R2,S22),
        to_upper(S22,_大文字化した文字列),
        concat_atom(S1,'`',_大文字化した文字列,'`'],_変換した文字列1),
        concat_atom(R3,_残り文字列),
        '逆クォートで囲まれた小文字-大文字変換を一括で行いたい'(_残り文字列,_変換した文字列2),
        atom_concat(_変換した文字列1,_変換した文字列2,_変換した文字列),!.
'逆クォートで囲まれた小文字-大文字変換を一括で行いたい'(_文字列,_文字列).