perl自学笔记整理

输入与输出

1、读取标准输入（键盘输入的形式都称标准输入）
$line = ;                #读取下一行
chomp($line);                    #截掉最后的换行符

chomp($line = );    #习惯用法，效果同上
如果读到文件结尾(end-of-file), "行输入"操作符就会返回undef。这样的设计是为了配合循环使用，可以自然地跳出循环：
while (defined($line = )) {
    print "I saw $line"; 
}
while () {
    print "I saw $_"; 
}
foreach () {
    print "I saw $_"; 
}
注意： 在while循环和foreach的循环时是不同的，while循环时，perl会读取一行输入，把它存入变量并且执行循环的主体。接下来，它会回头去寻找其他的输入行。但是在foreach循环里，“行输入”操作符会在列表上下文中执行（因为foreach需要逐项处理列表的内容）。为此，在循环能够开始执行之前，它必须先将输入全部读进来。假如输入来自4000M大小的WEB服务器日志文件，他们的差异会十分明显！因此最好的做法，通常是尽量使用while循环的简写，让它每次处理一行。

2、钻石操作符输入
perl中有一种读取输入的方法，就是使用 钻石操作符<>。
例如：
[root@localhost aaa]# cat aaa.txt 
aaa
bbb
ccc
[root@localhost aaa]# cat test2.pl 
#!/usr/bin/perl
#test2
while (<>) {
chomp;            #不加参数时，chomp会直接作用在$_上。节约按键，从小地方做起。
print "I was $_ that I saw!\n";
}
[root@localhost aaa]# ./test2.pl aaa.txt 
I was aaa that I saw!
I was bbb that I saw!
I was ccc that I saw!

注意：假如钻石操作符无法打开某个文件并读入内容，便会显示相关的出错诊断信息，就像：
不能打开wilma:无此文件或目录(can't open wimal: No such file or directory)
然后钻石操作符会自动跳到下一个文件，就像cat或其他标准工具程序的做法一样。

3、钻石操作符调用参数

钻石操作符其实不回去检查调用参数，它的参数其实是来自@ARGV数组，这个数组是perl实现内建起来的特殊数组。
钻石操作符会查看数组@ARGV以决定该用哪些文件名，如果它找到的是空列表，就会该用标准输入流；否则，就会使用@ARGV里的文件列表。
例如：
[root@localhost aaa]#  cat 1.txt 
nihao
beijing
[root@localhost aaa]# cat 2.txt 
nihao
shanghai
[root@localhost aaa]# cat 3.txt 
nihao
guangzhou
[root@localhost aaa]# cat test2.pl 
#!/usr/bin/perl
#test2
@ARGV = qw# 1.txt 2.txt 3.txt #;            #强制让钻石操作符读这三个文件。
while (<>) {
chomp;
print "I was $_ that I saw!\n";
}
[root@localhost aaa]# perl test2.pl 
I was nihao that I saw!
I was beijing that I saw!
I was nihao that I saw!
I was shanghai that I saw!
I was nihao that I saw!
I was guangzhou that I saw!

4、标准输出
print <>;             #和Unix下的cat类似
print sort <>;        #和Unix下的sort命令功能差不多。
print (2+3);        #它会打印5。

5、使用 printf格式化打印输出

[root@localhost ~]# cat test.pl 
#!/usr/bin/perl
#test
$user = zhangsan;
$days_to_die = 30;
printf "Hello, %s; your password expires in %d days!\n", $user, $days_to_die;        #%s 指定字符串格式， %d指数字格式
[root@localhost ~]# perl test.pl
Hello, zhangsan; your password expires in 30 days!

[root@localhost ~]# cat test.pl
#!/usr/bin/perl
#test
$user = zhangsan;
$days_to_die = 30;
printf "Hello, %s; your password expires in %d days!\n", $user, $days_to_die;
printf "%g %g %g\n", 5/2, 51/17, 51 ** 17;
printf "in %d days!\n", 17.85;
printf "%6d\n", 42;
printf "%2d\n", 2e3 + 1.95;
printf "%10s\n", "wilma";
printf "%-10s\n", "wilma";
printf "%12f\n", 6 * 7 + 2/3;
printf "%12.3f\n", 6 * 7 + 2/3;
printf "%12.0f\n", 6 * 7 + 2/3;
printf "Monthly interest rate: %.2f%%\n", 5.25/12;
[root@localhost ~]# perl test.pl
Hello, zhangsan; your password expires in 30 days!
2.5 3 1.0683e+29
in 17 days!
    42
2001
     wilma
wilma     
   42.666667
      42.667
          43
Monthly interest rate: 0.44%

6、文件句柄
有六种特殊文件句柄是Perl保留的，它们的名字是STDIN、STDOUT、STDERR、DATA、ARGV和ARGVOUT。虽然你可以选择任何喜欢的文件句柄名，但不应使用保留的名字，除非确实需要以特殊方式使用上述六个句柄。

7、打开文件句柄
open CONFIG, " open BEDROCK, ">fred";
open LOG, ">>logfile";

my $selected_output = "my_output";
open LOG, "> $selected_output";
在相对新的Perl(5.6版之后)中，open另有一种使用三个参数的写法：
open CONFIG, "<", "dino";
open BEDROCK, ">", $file_name;
open LOG, ">>", &logfile_name();

8、关闭文件句柄
close LOG;
close CONFIG;
close BEDROCK;

9、使用文件句柄
print LOG "北京欢迎你！\n";
printf STDERR "%s.\n", aasdf;

10、改变默认的文件输出句柄
select BEDROCK;
print "I hope Mr. Slate doesn't find out about this.\n";
print "Wilma!n";
默认情况下，假如你不为print(printf)指定文件句柄， 它的输出就会送到STDOUT。不过你可以使用select操作符来改变默认的文件句柄。
$I=1,如果你想改回原先的STDOUT，可以用它
本文来源：http://www.benet.wang/perl%E7%BC%96%E7%A8%8B/89.html";