2009年04月02日

正規表現で数値を3桁毎のカンマ区切り形式に変換(Perl編)

my $str;
$str = "12345678901234567";
$str =~ s/(\d)(?=(\d{3})+(?!\d))/$1,/g;
print $str;
//↓
//12,345,678,901,234,567
//になります。
posted by 台北猫々 at 21:36| Comment(0) | TrackBack(0) | 技術メモ(Perl)

2009年04月01日

初出社

というのは、なんど経験しても緊張するものですね。
とりあえず今日はガイダンスだけでしたので、
具体的な仕事内容は明日ということです。

新入社員の他に、中途社員も結構入社したのにびっくり
しました。このご時勢で、良く採ったものです。

posted by 台北猫々 at 21:37| Comment(0) | TrackBack(0) | 日記