簡単なプログラムを作った

#単位の選択
print"温度の単位(数字)を選択して下さい\n";
print"ケルビン=1 摂氏=2 華氏=3："; $u = <STDIN>;
print"\n";

#単位の繰り返し(無効な場合)
while($u < 1 || $u > 3){
print"無効な値なのでもう一度入力して下さい\n";
print"ケルビン=1 摂氏=2 華氏=3："; $u = <STDIN>;
print"\n";
}

#単位の表示
if($u == 1){
$d = "ケルビン";
}elsif($u == 2){
$d = "摂氏";
}elsif($u == 3){
$d = "華氏";
}

#温度の入力
print"温度を入力して下さい(単位：$d)："; $t = <STDIN>;
print"\n";

#温度の繰り返し(無効な場合)
while($u == 1 and $t < 0){
print"無効な値なのでもう一度入力して下さい\n";
print"温度を入力して下さい(単位：$d)："; $t = <STDIN>;
print"\n";
}
while($u == 2 and $t < -273.15){
print"無効な値なのでもう一度入力して下さい\n";
print"温度を入力して下さい(単位：$d)："; $t = <STDIN>;
print"\n";
}
while($u == 3 and $t < -459.67){
print"無効な値なのでもう一度入力して下さい\n";
print"温度を入力して下さい(単位：$d)："; $t = <STDIN>;
print"\n";
}

#温度の変換
if($u == 1){
$k = $t;
$c = $t - 273.15;
$f = (9 / 5) * $t -459.67;
}elsif($u == 2){
$k = $t + 273.15;
$c = $t;
$f = (9 / 5) * $t + 32;
}elsif($u == 3){
$k = (5 / 9) * ($t + 459.67);
$c = (5 / 9) * ($t - 32);
$f = $t;
}

#値の整理
$k = sprintf("%.2f", $k);
$c = sprintf("%.2f", $c);
$f = sprintf("%.2f", $f);

#温度の表示
if($u == 1){
print"絶対温度$k"."Kの場合\n";
print"摂氏温度$c"."°Cと華氏温度$f"."°Fになります\n";
}elsif($u == 2){
print"摂氏温度$c"."°Cの場合\n";
print"絶対温度$k"."Kと華氏温度$f"."°Fになります\n";
}elsif($u == 3){
print"華氏温度$f"."°Fの場合\n";
print"絶対温度$k"."Kと摂氏温度$c"."°Cになります\n";
}

因みに言語はPerl

もっと短くできそうな…

Perlってこんな簡単に標準入力扱えるんか

パールは全然知らないや
真珠持たないしな

while3つ並んでるのがムカつく

デジャブかな？

これ2.5って入力したらどうなるの

どうやったらこれを実行させられるかわからない

perlって型ないんか
2.5入力してエラー出ないんか

＝＝使うくらいならswitch使いたいな
好みだろうけど

動いた
http://www.tutorialspoint.com/execute_perl_online.php?PID=0Bw_CjBb95KQMVU9Id2t6Ui1zV2M

うごかなお

アカン失敗した
http://www.tutorialspoint.com/execute_perl_online.php?PID=0Bw_CjBb95KQMTjBQNk1rNnFkNzQ

>>9
rubyと同じスクリプト言語ならPerl入れて環境変数設定してPerlのコマンドプロンプトで１のPerlファイルを実行すればいいはず