日本人ならShift_JISやろ(ずっと前に書いて公開してなかったもの)

2017-02-14 08:51
Shift_JISなデータベースのShift_JISなテーブルにShift_JISでINSERTなどをするという意地でもShift_JISを使う場合にする文字の置き換え
※2019/7/31 最近のやつはエラーでなくなった?知らんけど

#掲示板なんかでよく使う感じのやつ
$in->{'title'} = '日本人ならShift_JISやろ';
$in->{'name'} = '日本人';
$in->{'message'} = 'UTF8なんか使うかい!';

for ('title','name','message') {
  $in->{$_} = &oubeika($in->{$_});
}


sub oubeika {
#今日も5C(大和魂)が大暴れ!
for ($_[0]) {
こういう余計なやつは$inに入れる前に消したり置き換えしておいた方がいいと思う
#  s/\x00//g;
#  s/\n/\\n/g;
#  s/\r/\\r/g;
#  s/'/\\'/g;

  s/\\/\\\\/g;
  s/\x1a/\\x1a/g;
  s/\?/?/g;
  s/表\\\/表\/g;
  s/予\\\/予\/g;
  s/能\\\/能\/g;
  s/申\\\/申\/g;
  s/ソ\\\/ソ\/g;
  s/十\\\/十\/g;
  s/構\\\/構\/g;
  s/暴\\\/暴\/g;
  s/圭\\\/圭\/g;
  s/貼\\\/貼\/g;
  s/―\\\/―\/g;
  s/Ы\\\/Ы\/g;
  s/\\\\/\\/g;
  s/噂\\\/噂\/g;
  s/浬\\\/浬\/g;
  s/欺\\\/欺\/g;
  s/蚕\\\/蚕\/g;
  s/曾\\\/曾\/g;
  s/箪\\\/箪\/g;
  s/禄\\\/禄\/g;
  s/兔\\\/兔\/g;
  s/喀\\\/喀\/g;
  s/媾\\\/媾\/g;
  s/彌\\\/彌\/g;
  s/拿\\\/拿\/g;
  s/杤\\\/杤\/g;
  s/歃\\\/歃\/g;
  s/濬\\\/濬\/g;
  s/畚\\\/畚\/g;
  s/秉\\\/秉\/g;
  s/綵\\\/綵\/g;
  s/臀\\\/臀\/g;
  s/藹\\\/藹\/g;
  s/觸\\\/觸\/g;
  s/軆\\\/軆\/g;
  s/鐔\\\/鐔\/g;
  s/饅\\\/饅\/g;
  s/鷭\\\/鷭\/g;
}
return $_[0];
}

←前次→

コメント一覧

1:匿
2019-08-29 19:29
絵文字結構好きやから困るわぁ( ノД`)…


 

- SAMEHA.JP -