Perl中shift函数用法

my $变量 = shift;

print "Unknow argument : $argument\n"   if($argument);

 

shift array  表示移除数组中的第一个元素 返回剩下的元素。

shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素被弹出。

如果没有array，直接给变量赋值shift

@ARGV: perl 命令行参数

当运行perl脚本的时候，从命令行上传递的参数存储在内建数组@ARGV中，ARGV是perl默认接收参数的数组，可以有多个参数，

$ARGV[0]是表示接收到的第一个参数、$ARGV[1]是接收第二个参数

 

那么shift操作的参数为@_  也就是 @ARGV

这句实现了直接获取用户传递的第一个参数。

其中@ARGV： 以@开头的表明是一个list ，含义是包含了程序从命令行得到的所有参数

注：

Perl天然支持可变数目个参数。
  在函数内部，所有参数按顺序放在数组 @_ 中。
  在函数内部，$_[0] 表示函数的第一个参数。其余类推。

 

shift函数：

1. 作用： 移除数组的首元素，并返回该元素

2. 格式： 

     shift ARRAY

     shift

3. 实例:

    @array=("hello", "tomorrow","config")；

    $item = shift @array;

    print "1.$item\n";

    print  "2.@array";

    结果： 

    1. hello

     2. tomorrow config

use Getopt::Long    --->  解析复杂的命令行参数