代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
实现逆波兰式与递归计算
作者:
两把刷子
/ 发布于
2014/1/17
/
717
#!/usr/bin/perl usestrict; usewarnings; useData::Dumper; while(1){ my$data=&get_input(); if(!$data){ print"your expr is illegal,please check it\n";next; } my@tree=&get_tree($data); print"The tree is: \n", Dumper(@tree)," \n"; my$result=&count($tree[0]); print"The result of the expr is: $result\n"; } ######获得输入数据函数 subget_input{ print"Input your expr>>"; chomp(my$inputdata=<STDIN>); $inputdata=~s/\s//g;#去除所有的空白符 if(!$inputdata){exit;} if($inputdata=~/[a-zA-Z\.]/) {#做简单检查是否存在小数或者字符出现 return0;} $inputdata=join("",$inputdata,"#")if(substr($inputdata,length($inputdata)-1,1) ne"#"); #在最后补# } #get the tree of the expr subget_tree{ my$data=pop; my($stop,$top,$ch,@stack,@tree); $top=0;$stack[0]='#'; while($top<length($data)){ $ch=substr($data,$top,1); if($cheq"+"or$cheq"-"){ my$op=pop(@stack); if($opeq'#'or$opeq'('or$opeq'['or$opeq'{'){ push(@stack,$op);push(@stack,$ch);} else{ push(@stack,$op); while(1){ my$op=pop(@stack); if($opeq'#'or$opeq'('or$opeq'['or$opeq'{'){ push(@stack,$op);push(@stack,$ch);last;} else{ my@node; push(@node,$op);push(@node,pop(@tree)); push(@node,pop(@tree));push(@tree,[@node]); } } } $top=$top+1;next; } if($cheq"*"or$cheq"/") { my$op=pop(@stack); if($opne"*"and$opne"/"){ push(@stack,$op);push(@stack,$ch);} else{ push(@stack,$op); while(1){ my$op=pop(@stack); if($opne"*"and$opne"/"){ push(@stack,$op);push(@stack,$ch);last;} else{ my@node; push(@node,$op);push(@node,pop(@tree)); push(@node,pop(@tree));push(@tree,[@node]); } } } $top=$top+1;next; } if($cheq'('or$cheq'{'or$cheq'['){ push(@stack,$ch);$top=$top+1;next; } if($cheq')'or$cheq']'or$cheq'}'){ while(1){ my$op=pop(@stack); if($opeq'('or$opeq'['or$opeq'{'){ last;} my@node; push(@node,$op);push(@node,pop(@tree)); push(@node,pop(@tree));push(@tree,[@node]) } $top=$top+1;next; } if($cheq'#'){ while(1){ my$op=pop(@stack); if($opeq'#'){ last;} else{ my@node; push(@node,$op);push(@node,pop(@tree)); push(@node,pop(@tree));push(@tree,[@node]); } } $top=$top+1;next; } if($chge'0'and$chle'9'){ my$num=0; while($chge'0'and$chle'9'){ $num=$num*10+$ch;$top=$top+1; $ch=substr($data,$top,1); } push(@tree,$num);next; } else{ $top=$top+1; } } returnreverse@tree; } #####检查是否为引用 subjudge_digit { my$data=shift; if(ref($data) eq"ARRAY"){ return0;} else{ return1;} } #####根据树计算最终结果 ########利用递归函数实现 subcount { my$x=shift; my@data=@{$x}; if(judge_digit($data[1])==0){ $data[1]=count($data[1]); } if(judge_digit($data[2])==0){ $data[2]=count($data[2]); } if($data[0] eq"+"){ return$data[1]+$data[2]; }elsif($data[0] eq"-") { return$data[2]-$data[1]; }elsif($data[0] eq"*"){ return$data[1]*$data[2]; }elsif($data[0] eq"/") { return$data[2]/$data[1]; } }
试试其它关键字
逆波兰式
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
两把刷子
贡献的其它代码
(
6
)
.
检测输出设备是屏幕还是管道
.
添加字符串到文件代码片段
.
检测文件大小
.
绘制指数统计图表
.
计算倒数算法
.
实现逆波兰式与递归计算
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3