perl学习笔记（四）输入输出

---

前言

本文主要记录perl学习过程中的输入输出。

---

4 输入输出

4.1 行输入操作符 < STDIN>

接收来自键盘的输入。

use strict;

my $line;
chomp($line=<STDIN>);

print "$line\n";

while(<STDIN>)
{
    print "I saw $_";
}

4.2 钻石操作符<>

钻石操作符除了支持键盘输入，还支持调用参数，会去读一个数组@ARGV。

# demo.pl
use strict;

my $line;

#while( defined($line=<>) )
#{
#    chomp($line);
#    print "I saw $line\n";
#}

while(<>)
{
    chomp;
    print "I saw $_\n";
}

# perl demo.pl a.txt b.txt c.txt
# perl 会依次打开这三个文件，分别读入每行。

4.3 输出到标准输出print和say

print 直接输出到标准输出。
say 会自动在末尾加回车\n，使用say之前要加use 5.010。

4.4 使用printf格式化输出

%s 字符串
%d 十进制整数
%f 浮点数
%g 用来自动识别变量并自动设置格式

use strict;

my $name = "Liming";
my $age = 7;
my $money = 19.9;

my @items = qw(aaa bbb ccc ddd);
my $format = "%-5s\n" x 4;
printf("%-5s\n%5s\n%5s\n%5s\n", @items);
printf $format, @items;
printf "%5s\n" x @items, @items;
#aaa
#  bbb
#  ccc
#  ddd
#aaa
#bbb
#ccc
#ddd
#  aaa
#  bbb
#  ccc
#  ddd

---

总结