perl每日一练

==============================2022.04.04

• 点(.)是通配符， 它可以匹配任何字符
  错误：匹配除了换行符以外所有字符

• 请仔细查看下列Perl程序，选出正确输出结果的选项。

@array=qw#white black red#;
$a =shift(@array);
$b =shift(@array);
shift @array;
unshift(@array,"green");
unshift(@array,"yellow");
@others =1..3;
unshift @array,@others;
print "@array";
@array =join(" ",@array,$a,$b);

unshift shift都是对数组左侧的操作
1 2 3 yellow green
join第一个参数是分隔符，此处是空格，然后在数组后加上a,b的值