数字を１桁なら半角、２桁以上は全角にしたい

質問

表示したい数字が１桁もしくは２桁でHTML表示を等幅指定で合わせたいので
数字を１桁なら半角、２桁以上は全角にしたいと思っています。

下のように記述して、思い通りの動きはしているのですが
もう少しスマートに記述できればと思い質問させていただきます。
みなさんなら、どう記述するか、ご教示ください。

$no = 1;

# １桁の場合、半角から全角にする
if ($no == 0) { $no2 = "０"; }
if ($no == 1) { $no2 = "１"; }
if ($no == 2) { $no2 = "２"; }
if ($no == 3) { $no2 = "３"; }
if ($no == 4) { $no2 = "４"; }
if ($no == 5) { $no2 = "５"; }
if ($no == 6) { $no2 = "６"; }
if ($no == 7) { $no2 = "７"; }
if ($no == 8) { $no2 = "８"; }
if ($no == 9) { $no2 = "９"; }
if ($no >= 10) { $no2 = "$no"; }

print "$no2";

回答No.2

Gotthold · ベストアンサー

> 「use utf8;」で、スクリプト内で扱う文字コードを
> UTF8にする事で可能になるという理解でよろしいでしょうか？
ちょっと違う。
use utf8はスクリプト自体をUTF-8で記載することを宣言する物。
だからスクリプトはちゃんとUTF-8で保存してください。
これによって、perlは「スクリプト内」の文字列を正しく文字列として扱えます。

これでケアできるのは「スクリプト内」の文字列なので、
「スクリプト外」（STDINとかコマンドライン引数、ファイル）からやってきた文字列として扱うつもりのデータは
decodeしてperlが文字列として扱えるように変換しなければなりません。
（例えそのデータがUTF-8文字列であってもです、decodeを省略できるのはASCIIやLatin-1だけ。）

逆に、「スクリプト外」（STDOUTやファイル）に文字列を出す場合は、
所望の文字コードにencodeする必要があります。
ただし、PerlIOレイヤを使えばこの処理は若干省略可能です。
　binmode STDOUT, ":utf8";
はSTDOUTに出力するときのencodeを省略する為の物です。
これがないと、printのたびに
print encode( 'utf8', $no );
とかする必要があります。

use utf8で検索すれば上の方にこんなページが引っかかります。
http://www.rwds.net/kuroita/program/Perl_unicode.html
http://hikoboshi.org/perl/utf8.html
http://blog.livedoor.jp/dankogai/archives/51224106.html

お礼

ご回答ありがとうございました。
いただいたソースを私なりに調べたのですが、詰めが甘かったです。

最近は、スクリプトをUTF-8で作成しています。
「use utf8」で、スクリプト内の文字列がそのまま使えるわけですね

エンコード・デコードに関しても勉強になりました。
挙げていただいたサイトも再読いたします。

詳しく解説いただきありがとうございました。

回答No.3

kmee

素の状態では、「全角文字」は「2つの文字(Shift_JISの場合)」として処理されます。
よって tr/0-9/０-９/は tr/0-9/AB-CD/を書くようなものです。(ここでは、A:０の1バイト目、B:０の2バイト目..とします)
一文字として処理しなければならない「全角文字」がバラバラに処理されてしまうわけです。

use utf8 ; には、スクリプトがutf8で掛れていることを示すと同時に、utf8の「複数バイト文字」を「一文字」として処理するようになります。
これでtr/0-9/０-９/が 0と「全角の０」が1文字ずつ対応できるようになります。

お礼

ご回答ありがとうございました。
文字コードについて、再度、勉強しなおそうと思います。
詳しい解説ありがとうございました。

回答No.1

Gotthold

> 数字を１桁なら半角、２桁以上は全角にしたいと思っています。
コードは逆だったのでコードの方を信用しました。

use utf8; #UTF-8で記載
use strict;
use warnings;

binmode STDOUT, ":utf8"; #環境に合わせる
#binmode STDOUT, ":encoding(euc-jp)";
#binmode STDOUT, ":encoding(cp932)";

my $no = 1;

if( 0 <= $no && $no <= 9 ){ $no =~ tr/0-9/０-９/; }
print "$no\n";

お礼

迅速な回答ありがとうございました。

> コードは逆だったのでコードの方を信用しました。

失礼しました。
コピーペーストで貼り付けたら、表示が半角と全角が逆になってしまいました。

以前「$no =~ tr/0-9/０-９/」は考えたのですが
上手く動作しませんでした。

「use utf8;」で、スクリプト内で扱う文字コードを
UTF8にする事で可能になるという理解でよろしいでしょうか？