use Roman; $roman = roman($arabic); # アラビア数字をローマ数字に変換 $arabic = arabic($roman) if isroman($roman); # ローマ数字をアラビア数字に変換

foreach ($X .. $Y) { # $_にXからYまでのすべての整数が順次格納 } foreach $i ($X .. $Y) { # $iにXからYまでのすべての整数が順次格納 } for ($i = $X; $i <= $Y; $i++) { # $iにXからYまでのすべての整数が順次格納 } for ($i = $X; $i <= $Y; $i+=7) { …

# sprintfとフォーマット指定子を使用して、小数点以下の特定の桁で丸めて比較する。 # equal(NUM1, NUM2, PRECISION) : NUM1とNUM2をPRECISION桁で丸めてから比較し、 # 等しい場合は真を返す sub equal { my ($A, $B, $dp) = @_; return sprintf("%.${dp}g…

# 小数点第３位で丸める $rounded = sprintf("%.2f", $unrounded); # int, floor, ceil関数を使う use POSIX qw(floor, ceil); printf "%8s %8s %8s %8s %8s\n", qw(number even zero down up); for $n (-6 .. +6) { $n += 0.5; printf "%8g %8.0f %8s %8s %…

みんな言ってるけど、やっぱ一言書いておくかな。もう何年も前から、不毛な規格争いを続けていたのですが、とうとう決着したようですね。東芝のDVD事業部の人たちは「そんな話は知らない」とコメントしてましたが、ま、大勢が決まっちゃったので、しゃーない…

せっかくブログに結希未の名前を付けているので、ブログの内容も結希未中心で書かないと意味がないのですが、ついつい全然違うことを書いてしまいます。というのも、成長は早いものの、劇的なことがあまり起こらないからでしょうか。ま、親二人が平凡だから…