人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

[Perl]初心者です。 文字列”あいうえお”が与えられたとします。EUC-JP形式になっている先頭の”あ”を 42146という数値にPerl上で変換するやり方を教えて下さい。末尾の"お"も同様にして当該数値に変換したいです。

●質問者: tententireman
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:EUC-JP あいうえお 初心者 文字列
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● haruo-31
●60ポイント ベストアンサー

手元の環境はUTF8だったので、ちょっと自信が無いですが、

↓試してみて下さい。


use strict;
use warnings;

my $str='あいうえお';

my @codes=unpack('C*', $str);
my @results;

while($#codes>0) {
my $c=shift(@codes);
$c=$c*128+shift(@codes) if $c>127;
push @results, $c;
}

print join("\t", @results);

pack / unpack が使えます。

http://www.rfs.jp/sb/perl/05/pack.html

◎質問者からの返答

どうもありがとうございます。unpackという関数を使うのですか。

せっかく教わったのに恐縮ですが、現在テストできる環境にないため

是非後日、試してみたいと思います。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ