忍者ブログ
このブログは管理者がホームページやブログを作成する途上で知り得た便利情報をメモしたものです。ホームページやブログ作成にお役立て下さい。また同時にポイントサイトやアフィリエイトなどネット利用でお得になる情報も満載中です!
当ブログに掲載されているツール等へのリンクはデジタル・ネットワーク社会と著作権「Q12無断でリンクを張ることは著作権侵害となるでしょうか。」(公益社団法人著作権情報センター CRIC)の考え方に基づき、掲載させていただきました。リンクを解除して欲しいサイトの担当者様はご面倒ですが、コメント欄にてご一報頂けると幸いです。(コメント欄は直接表示されないように設定しています。)
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

use Encode;

my $kana = "あいうえおカキクケコ";
Encode::from_to($kana, "sjis", "euc-jp");
$kana=&hiragana2katakana($kana);
Encode::from_to($kana, "euc-jp", "sjis");
print $kana;

sub hiragana2katakana{
  my $ascii = '[\x00-\x7F]';
  my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
  my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
  my @chars = $_[0] =~ /$ascii|$twoBytes|$threeBytes/og;
  my $ret;
  foreach (@chars) {
    if (/^\xA4([\xA1-\xF3])$/) {
      $ret .= "\xA5".$1;
    } else {
      $ret .= $_;
    }
  }
  return $ret;
}

ホームページ制作に役立つ!ブレイン・エイチシーより引用

[Perl目次]へ戻る
PR
この記事にコメントする
お名前(Name):
タイトル(Title):
文字色(Color):
メールアドレス(E-Mail):
URL:
コメント(Comment):
パスワード(Password):   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
<< [Perl] 繰り返し HOME レンタルサーバー >>
[37]  [38]  [39]  [40]  [41]  [42]  [43]  [44


ランキングに参加しています
にほんブログ村 IT技術ブログ Webサイト構築へ
PR

Copyight© ホームページ・ブログ作成&ネットでお得に! All Rights Reserved.
忍者ブログ [PR]