Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1478067
  • 博文数量: 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)

分类: PERL

2012-08-12 11:05:12

数组变量用@加变量名

普通变量用 $加变量名

undef没赋值的变量,用于条件判断,代替不关心的值
defined已赋值的变量,用于条件判断。数字初值为0,字符串初值为空串

如果有undef变量又不知道在哪,可加-w参数进行提示
#!/usr/bin/perl -w

变量替换用大括号,shell用小括号

  1. $ cat test02.pl
  2. #!/usr/bin/perl
  3. $str="short";
  4. $string="long";
  5. print "match lognest $string\n";
  6. print "match longest ${str}ing\n";
  7. $ ./test02.pl
  8. match lognest long
  9. match longest shorting
    将一个命令的输出放在一个数组,然后输出这个数组内容
  1. $ cat test.pl
  2. #!/usr/bin/perl
  3. @lines= `ls -al`;
  4. #print "@lines";
  5. print $lines;
  6. foreach(@lines){
  7. #s/ \w<([^>]+)/\U$1/g;
  8. print;
  9. }
  10. $ ./test.pl
  11. 总用量 1
  12. drwxr-xr-x+ 1 Administrator None 0 八月 12 00:34 .
  13. drwxrwxrwx+ 1 Administrator None 0 八月 11 23:30 ..
  14. -rwxr-xr-x 1 Administrator None 114 八月 12 00:34 test.pl



 

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

上一篇:funy songs

下一篇:字符串操作-perl笔记02

给主人留下些什么吧!~~