2009年03月12日

全角数字を半角数字へ変換する全角数字を半角数字へ変換する

Jcodeモジュールを利用し、全角数字を半角数字へ変換する。
use Jcode;
print Jcode->new('1234567890')->tr('[0-9]', '[0-9]')->sjis;
「tr('[0-9]', '[0-9]')」の部分の文字コードはEUCである必要がある。プログラム全体がシフトJISの場合は、変数に入れ、その変数をEUCへ変換した後に渡せば良い。


ラベル:CGI 数値 Perl
posted by wans at 13:21| Comment(0) | per&cgi | このブログの読者になる | 更新情報をチェックする

PERLで範囲指定でその範囲のランダムを発生

randomRange(最小数字, 最大数字)

my $item_min_num = '10';
my $item_max_num = '50';

randomRange($item_min_num, $item_max_num);

sub randomRange {
  my $num1 = shift;
  my $num2 = shift;
  return int( (rand() * ($num2 - $num1 + 1)) + $num1 );
}
もっと簡単にすると
ラベル:乱数 ランダム Perl
posted by wans at 13:17| Comment(0) | per&cgi | このブログの読者になる | 更新情報をチェックする

配列演算子

配列には、数値や文字列を代入することができます。
@x = (1, 2, 3); @x に 1, 2, 3 をこの順序で代入 (数値)
@y = ("apple", "orange"); @y に apple と orange をこの順序で代入 (文字列)
@z = ($a, $b, $c); @z に $a, $b, $c をこの順序で代入 (変数)
posted by wans at 13:13| Comment(0) | per&cgi | このブログの読者になる | 更新情報をチェックする
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。