Perl输出学习

print: 输出到标准输出设备

#!/bin/perl

 

use warnings;

use strict;

 

my @array = qw / fred liken wall larry /;

print @array;        #打印出元素的列表

print "@array";      #打印出一个字符串(包含一个内插数组)

 

Perl在内插数组是，会在元素之间加入空格。

 

printf: 格式化输出

#!/bin/perl

 

use warnings;
use strict;

 

my @items = qw/ wilma dino pebbles /;
my $format = "The items are:/n".("%-10s/n" x @items);

printf $format, @items;

根据format输出数组结果