use strict;
use warnings;
my ($i,@in,$sum,);
for (1..1000)
{
chomp($i=<>);
if ($i eq "quit")
{
exit;
}
else
{
$i=~m/([\d\s\.]+)(.)([\.\d\s]+)/;
$in[0]=$1;
$in[1]=$2;
$in[2]=$3;
if ($in[1] eq "*")
{
$sum=$in[0]*$in[2];
}
elsif ($in[1] eq "+")
{
$sum=$in[0]+$in[2];
}
elsif ($in[1] eq "-")
{
$sum=$in[0]-$in[2];
}
elsif ($in[1] eq "/")
{
$sum=$in[0]/$in[2];
}
print "$sum\n";
}
}
一個最簡單的計算器
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
教你用Perl實現Smgp協議
原創
2024-05-06 10:32:43
CentOS升級openssh和openssl
原創
2023-11-17 12:58:16
docker alpine鏡像 安裝PHP擴展時報Cannot find autoconf
原創
2023-02-24 12:16:45
腳本文件 bash、lua 與 perl
原創
2021-12-25 21:43:04
MHA+ProxySQL,mysql的高可用集羣+讀寫分離(二)MHA搭建與VIP策略
原創
2021-12-25 21:39:21
保姆級教程!將 Vim 打造一個 IDE (Python 篇)
原創
2021-12-25 21:33:47
GWA2吉娃兔🐇Java中的文件上傳表單處理若干問題-2
原創
2021-12-25 21:29:00
哪種編程語言又快又省電?架構也要節能環保
原創
2021-12-25 21:20:47
linux 系統時間學習 ntp ntpdate
朝天放歌
2021-12-25 21:19:19
OpenSSL源碼編譯安裝
qz185_Anem9r
2021-12-25 21:18:18
如何檢索國外博士論文
osc_0ij3yxc4
2021-12-25 21:15:35
osm轉sqlite格式
原創
2021-12-25 21:10:48
.yaml 和 .yml 擴展名有什麼區別? [複製] - What is the difference between .yaml and .yml extension? [duplicate]
fyin1314
2021-10-22 21:20:38
(grep) 正則表達式匹配非 ASCII 字符? - (grep) Regex to match non-ASCII characters?
fyin1314
2021-10-19 21:19:11