Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1469449
  • 博文数量: 246
  • 博客积分: 3353
  • 博客等级: 中校
  • 技术积分: 3295
  • 用 户 组: 普通用户
  • 注册时间: 2011-11-09 17:56
个人简介

精通测试技术,linux,shell,性能测试

文章分类

全部博文(246)

文章存档

2024年(3)

2023年(7)

2022年(7)

2021年(4)

2020年(1)

2019年(2)

2017年(2)

2016年(3)

2015年(11)

2014年(20)

2013年(10)

2012年(176)

发布时间:2012-08-19 11:32:23

#!/usr/bin/perluse strict;use Time::Local;my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);$time = "2007-09-27 10:04:08";my @time = reverse(split /-|:|\s|\//,$time);foreach(@time).........【阅读全文】

阅读(2065) | 评论(0) | 转发(0)

发布时间:2012-08-12 14:24:37

数字和字符串的比较运算符相等   ==   eq不等   !=   ne小于   <   Lt大于   >   gt小于或等于  <=   le大于或等于  >=   ge #!/usr/bin/perl<>;print "对小数取余截取整数:".........【阅读全文】

阅读(2236) | 评论(0) | 转发(0)

发布时间:2012-08-12 12:18:30

q(string in q); 相当于'string in q'qq(string in qq);相当于“string in qq"()可换为,{},[]等匹配对字符qq{string in qq};字符串中也可以出现qq[string [in] qq];也可以换为任意//,;;,等相同字符对 qq/string in qq/Administrator@2012-0521-2127 ~/wesoft/perl$ cat qq.pl.........【阅读全文】

阅读(33685) | 评论(0) | 转发(0)

发布时间:2012-08-12 11:05:12

数组变量用@加变量名普通变量用 $加变量名undef没赋值的变量,用于条件判断,代替不关心的值defined已赋值的变量,用于条件判断。数字初值为0,字符串初值为空串如果有undef变量又不知道在哪,可加-w参数进行提示#!/usr/bin/perl -w变量替换用大括号,shell用小括号$ cat.........【阅读全文】

阅读(2610) | 评论(0) | 转发(0)

发布时间:2012-08-07 11:59:47

函数dumper可以捕获异常,类似javal中的try{}catch{} 语句 和tcl的catch{} error{}语句,perl中也可以捕获程序执行过程中的异常,防止因为局部异常导致程序全盘退出。sues11x64v2:/wesoft # cat test.perl#!/usr//bin/perlmy $a=0;my $b=1;my $c=1;eval {$c =$b/$a;};print dumper($c);.........【阅读全文】

阅读(3592) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册