perl学习笔记(3)
条件结构:
if(...){
...;
}elsif(...){
...;
}else{
...;
}
数值关系运算符 ==,>,<,>=,<=,!=
字符串关系 eq,gt,lt,ge,le,ne
逻辑运算 与&&,或||,非! 与and,或or,非not
. 数字0为假
. 空的字符串""和字符串0为假
. 未定义值undef为假
. 其他东西均为真
循环结构:
while(...){
}
for(init;test;increment){
...
}
特殊句法(可读性强):
print q(say hello!) if($meeting);
last指令可提前退出当前循环。
next指令可提前跳入当前循环的下一次判断。
redo指令可重复当前循环的当次执行。
语句前可用标签,帮助last/next/redo等指令,起到类似于goto的作用。
exit指令退出perl。
练习:
输入1测真假,输入2比大小,输入exit退出。
- #!/usr/bin/perl -w
- while(1){
- print qq(Input exit/1/2/...: );
- $s=<STDIN>;
- chomp $s;
- last if($s eq "exit");
-
- if($s eq "1"){
- print qq(Input a: );
- $a=<STDIN>;
- chomp $a;
- if($a){
- print qq(true);
- }else{
- print qq(false);
- }
- }
- elsif($s eq "2"){
- print qq(Input a: );
- $a=<STDIN>;
- chomp $a;
- print qq(Input b: );
- $b=<STDIN>;
- chomp $b;
- if($a eq $b){
- print qq($a = $b);
- }elsif($a gt $b){
- print qq($a > $b);
- }elsif($a lt $b){
- print qq($a < $b);
- }else{
- print qq(error);
- }
- }else{}
- print "\n";
- }
通过这个程序可以学习到字符串比大小是从左边第一个字符开始比的,数字小于大写字母,大写字母小于小写字母。实验:2<H<h,1506<Happy,Happy<happy,Happy<h。
[abc@localhost tmp]$ vi f31.pl
[abc@localhost tmp]$ perl f31.pl
Input exit/1/2/...: 2
Input a: H
Input b: h
H < h
Input exit/1/2/...: 2
Input a: 2
Input b: H
2 < H
Input exit/1/2/...: 2
Input a: 1506
Input b: Happy
1506 < Happy
Input exit/1/2/...: 2
Input a: Happy
Input b: happy
Happy < happy
Input exit/1/2/...: 2
Input a: Happy
Input b: h
Happy < h
Input exit/1/2/...: exit
[abc@localhost tmp]$ perl f31.pl
Input exit/1/2/...: 1
Input a: 0
false
Input exit/1/2/...: 1
Input a:
false
Input exit/1/2/...: 1
Input a: aaaaa
true
Input exit/1/2/...: exit
掌握条件结构和循环控制后,就可以处理一般数学问题了。
这次就到这里。
免责声明:
① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。
② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341