@x = (1, 2, 3); @x に 1, 2, 3 をこの順序で代入 (数値)
@y = ("apple", "orange"); @y に apple と orange をこの順序で代入 (文字列)
@z = ($a, $b, $c); @z に $a, $b, $c をこの順序で代入 (変数)
use Jcode;「tr('[0-9]', '[0-9]')」の部分の文字コードはEUCである必要がある。プログラム全体がシフトJISの場合は、変数に入れ、その変数をEUCへ変換した後に渡せば良い。
print Jcode->new('1234567890')->tr('[0-9]', '[0-9]')->sjis;
この広告は180日以上新しい記事の投稿がないブログに表示されております。