练习5 标准输入输出

<> 钻石操作符，并不是从键盘取得输入，而是从用户指定的位置读取。
    printf:格式化输出。格式字符串，输出数据列表，转换以%号开头，
     %d 代表十进制
     %s 代表字符串 字符串内插，并还可以设置字段宽度
     %g 输出恰当的数值，自动寻则浮点数，整数，指数
     %f 转换格式(浮点数)会按需要四舍五入，也可以指定小点数之后的输出位数。
     %% 输出真正的%，不会输出列表中的任何元素。
例：
#!/usr/bin/perl -w
@argv = qw# fei feiyang pkfeiyang #;
while (<>){
   chomp;
   print "it was $_ that i saw in some file";
}

1.printf 格式化输出。格式字符串，输出数据列表，转换以%号开头
例1：
#@array = qw(1 2 3 4 5 6 7);
#print @array;
#print "the array is :\n @array";
例2：
my @items = qw(fei feiyang feiyanga);
#my $format = "The items are:\n" . ("s\n" x @items);#s 定义字段有10个字符宽度
#printf $format,@items;
printf "The items are:\n" . ("s\n" x @items),@items; # 或直接组合

2.文件句柄
文件句柄 ：Perl 进程与外界之间的I/O联系的名字。
       文件句柄命名：以字符，数字及下划线，但不不得以数字开头。
           有六个Perl保留字，STDIN,STDOUT,STDERR,DATA,ARGV,ARGVOUT.
       STDIN,STDOUT,STDERR 是父进程自动打开的文件或设备。当你需要其他的文件句柄是，请使用open操作符告诉perl。
$! 代表可读的系统出错信息，当系统拒绝我们请求的服务，$!会给我们一个理由，例如：
        permission denied等。
例1：
#!/usr/bin/perl -w
if ( ! open PASSWD,"/etc/passwd"){
   die "How did you get logged in? ($!)"; #$!获取错误信息的理由。
}
while (){ #读取列表信息
chomp;
print "$_ \n"; #输出自动换行，也可以去掉chomp，直接打印$_ 效果一样。
}