このブログは管理者がホームページやブログを作成する途上で知り得た便利情報をメモしたものです。ホームページやブログ作成にお役立て下さい。また同時にポイントサイトやアフィリエイトなどネット利用でお得になる情報も満載中です！
当ブログに掲載されているツール等へのリンクはデジタル・ネットワーク社会と著作権「Q12無断でリンクを張ることは著作権侵害となるでしょうか。」（公益社団法人著作権情報センター CRIC）の考え方に基づき、掲載させていただきました。リンクを解除して欲しいサイトの担当者様はご面倒ですが、コメント欄にてご一報頂けると幸いです。（コメント欄は直接表示されないように設定しています。）
Top >
>
[PR]
×
[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目次］へ戻る
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
この記事にコメントする
ランキングに参加しています
メニュー
最新記事
ハロウィン特集 (09/24)
レンタルサーバー (04/21)
[Perl] ひらがな→カタカナ変換 (07/02)
[Perl] 繰り返し (06/25)
[Perl] ファイル・フォルダの有無確認 (03/22)
[Perl] 置換 (03/22)
[Perl] 文字列の分割 (03/22)
[Perl] カタカナ変換 (02/13)
[Perl] 条件分岐 (02/12)
[Perl] 文字化けする文字の対処方法 (02/11)
PR