@x = (1, 2, 3); @x に 1, 2, 3 をこの順序で代入 (数値)
@y = ("apple", "orange"); @y に apple と orange をこの順序で代入 (文字列)
@z = ($a, $b, $c); @z に $a, $b, $c をこの順序で代入 (変数)
2008年11月14日
配列演算子
配列には、数値や文字列を代入することができます。
@x = (1, 2, 3); @x に 1, 2, 3 をこの順序で代入 (数値)
@y = ("apple", "orange"); @y に apple と orange をこの順序で代入 (文字列)
@z = ($a, $b, $c); @z に $a, $b, $c をこの順序で代入 (変数)
@x = (1, 2, 3); @x に 1, 2, 3 をこの順序で代入 (数値)
@y = ("apple", "orange"); @y に apple と orange をこの順序で代入 (文字列)
@z = ($a, $b, $c); @z に $a, $b, $c をこの順序で代入 (変数)
全角数字を半角数字へ変換する
Jcodeモジュールを利用し、全角数字を半角数字へ変換する。
use Jcode;「tr('[０-９]', '[0-9]')」の部分の文字コードはEUCである必要がある。プログラム全体がシフトJISの場合は、変数に入れ、その変数をEUCへ変換した後に渡せば良い。
print Jcode->new('１２３４５６７８９０')->tr('[０-９]', '[0-9]')->sjis;