perl 脚本学习笔记

前言：

  以下材料为 per l脚本学习过程中电子形式的记录，与大家共享。

1. defined 的使用（判断某个变量是否被赋值）。

$b="";
if((defined $b)==1)
{
   printf("have original value\n");
}else {
   printf("not init\n");
}

2. 通过 $#ARGV 判断 perl 脚本运行时是否带有参数。

cmd            $#ARGV  
  ./test.pl        -1
  ./test.pl xx      0
  ./test.pl xx yy   1

3. 获取脚本的文件名称。

 basename($0) 获取脚本文件的名称，没有路径信息、perl等。比如： perl ./aa/bb/c.perl  返回 c.perl

4. 环境变量的获取。

$ENV{AUTO_HOME}

5. 为什么有时候别人的脚本里出现 use strict ?

use strict; 可以检测出拼写类错误，$ENV{_}DENG等

6. 常见数据结构的访问。

  $string = "stri