perl 一些未重视的写法...

1、print 配合<<用法：

   代码：

 print << 'HERE';
Assignments:
        @a = (1, 2, 3, "oops", 5, 6);
        @b = (5, 1..6, 7);
        @c = qw(aaa bbb ccc);
        @d = (5.1 .. 16.6);
        @e = ();
HERE

 结果：

      Assignments:
        @a = (1, 2, 3, "oops", 5, 6);
        @b = (5, 1..6, 7);
        @c = qw(aaa bbb ccc);
        @d = (5.1 .. 16.6);
        @e = ();

作用： 将<<后的字符串作用结尾符，全部输出，中间不内插。

2、在字符串中调用函数 ", 函数名,"

  代码：

@a = (1, 2, 3, "oops", 5, 6);

print "\@a=(",join(", ",@a),")\n";

  结果：

@a=(1,2,3,oops,5,6);