C:\>perl -lne "print eval,"
1
1
2
2
3+4
7
333+444
777
234*555
129870
345/456
0.756578947368421
$a=3.14
3.14
$b=4
4
$a*$b
12.56
(Ctrl+Cで中止)
・確認
C:\>perl -MO=Deparse -lne "print eval,"
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ =
chomp $_;
print eval $_;
}
-e syntax OK
・文字も入りますがなぜか小文字のm,q,sはなにも返らない?
・WINだからCALC叩いてもいいけど。コピペ使えるし便利だから。
参考リンク
・Perl版の「数文字実装irb」を見せていただいたよ!!
0 件のコメント:
コメントを投稿