perl语言入门(4)

yesn

# \b边界针对的是\w组成的单词。　　while是一行一行的读入，而foreach是全部读入。
　　while.foreach都有$_
　　3.printf格式化输出
　　print示例:
　　my @array = qw/a b c d e/;
　　print @array,"\n"; #只打印元素没有空格
　　print "@array";    #数组元素间用空格隔开
　　一般情况下输出会先送到缓冲区.
　　格式 printf "%s test %d\n",$user,$days;
　　# 格式字符串个数=变量个数
　　数组和printf
　　my @items = qw(wilama dino pebb);
　　my $format = "%10s\n" x @items;
　　printf $format,@items;
　　4.文件句柄
　　最好大写,6个特殊文件句柄STDIN,STDOUT,STDERR,DATA,ARGV,AGVOUT
　　打开文件句柄
　　open LOG, "dino";#默认从dino读入
　　open LOG, ">dino";# 追加
　　## >,>> 若果文件不存在就创建.
　　close LOG #关闭文件句柄
　　5.die处理严重错误
　　die输出指定信息,并且程序立刻终止,返回不为0的退出码.
　　并且打印出错的程序名和行号.如果在die信息尾加\n,则不打印.
　　if (! open LOG, ">dino") {
　　die "Cannot create file: $!"
　　#die "Cannot create file: $!\n"
　　}
　　## $!系统出错信息比方permission denied
　　6.使用文件句柄
　　if (! open LOG, "/etc/passwd") {
　　die "hello,($!)";
　　}
　　while () {
　　print "$_";
　　}
　　# 默认每个文件的行都是字符串+\n
　　print OUT "first";
　　print OUT ("second");
　　# 结果firstsecond
　　7, print默认输出到STDIN
　　改变文件句柄
　　select OUT;
　　# 默认输出到文件句柄时都会经过缓冲
　　# $| =1 立刻刷新缓冲区
　　print "first";
　　# 文件句柄改回STDOUT
　　select STDOU;
　　8. 文件句柄复用
　　如果打开了句柄OUT,  又打开了同名的句柄OUT,则先前的会自动关闭
　　复用默认的文件句柄
　　if (! open STDOUT, ">fuyong") {
　　die "heloo,$!\n";
　　}
　　print "test STDOUT repeat.\n";
　　## 还不知道怎么还原STDOUT
　　9. 使用say来输出,要在perl5.10声明use 5.010;才能使用say
　　say函数和print函数差不多，但是会在每行输出的结尾自动加上换行符。