2011-01-31 wcdj
(1) 读取标准输入 (2) 钻石操作符输入 (3) 调用参数 (4) 输出到标准输出 (5) 使用printf格式化输出 (6) 数组和printf (7) 文件句柄 (8) 打开和关闭文件句柄 (9) 用die处理严重错误 (10) 使用warn输出警告信息 (11) 使用文件句柄 (12) 改变默认的文件输出句柄 (13) 使用say来输出 (1) 读取标准输入 “行输入”<STDIN>操作符 【1】在标量上下文中 调用“行输入”操作符，将会返回标准输入中的一行。 $line = <STDIN>; # 读取下一行 chomp($line); # 截掉最后的换行符 简写： chomp($line = <STDIN>);# 习惯用法，效果同上 注意：如果读到文件结尾（end-of-file），“行输入”操作符就会返回undef —— 这样的设计是为了配合循环使用，可以自然地跳出循环。 #!/usr/bin/perl while (defined($line = <STDIN>)) { print "I saw $line"; } #简写： #!/usr/bin/perl while (<STDIN>) {# 条件简写 print "I saw $_";# 老地方$_ }
注意： [1] 只有当while循环的条件表达式里只有“行输入”操作符的前提下，这个简写才起作用。假如条件表达式里放了其他的东西，它就无法按你的预期运行了。 [2] “行输入”操作符（<STDIN>）和Perl的“老地方”变量（$_）之间并没有什么关联。只是在这个简写里，输入的内容会恰好存储在$_变量中而已。 【2】在列表上下文中 调用“行输入”操作符，它会返回一个列表，其中包含（其余）所有的输入内容，每个列表的元素代表一行输入内容。 #!/usr/bin/perl #while (<STDIN>) {# 简写 # print "I saw $_";# 老地方S_ #} foreach (<STDIN>) { print "I saw $_"; }
注意：while循环和foreach循环的区别 两者不同之处在于它们背后的运作方式。 在while循环里，Perl会读取一行输入，把它存入某个变量并且执行循环的主体。接下来，它会回头去寻找其他的输入行。 在foreach循环里，“行输入”操作符会在列表上下文中执行（因为foreach需要逐项处理列表的内容）。为此，在循环能够开始执行之前，它必须先将输入全部读进来。 建议：最好的做法，对于大文件，通常是尽量使用while循环的简写，让它每次处理一行。 (2) 钻石操作符输入 还有另一种读取输入的方法，就是使用钻石操作符<>。 它能让程序在处理调用参数的时候，提供类似于标准Unix工具程序的功能。 程序的调用参数（invocation arguments）通常是命令行上跟在程序名后面的几个“单词”。 注意： [1] 连字符（-）当作参数，代表标准输入。 [2] 让程序以这种方式运行的好处，就是你可以在运行时指定程序的输入源。
#!/usr/bin/perl #while (<STDIN>) {# 简写 # print "I saw $_";# 老地方S_ #} #foreach (<STDIN>) { # print "I saw $_"; #} while (defined($line = <>)) { chomp($line); print "It was $line that I saw!/n"; } #简写： while (<>) { chomp;# 使用chomp的默认用法：不加参数时，chomp会直接作用在$_上。 print "It was $_ that I saw!/n"; } 注意： [1] 钻石操作符是“行输入”操作符的特例。不过它并不是从键盘取得输入，而是从用户指定的位置读取。 [2] 钻石操作符只有在碰到所有输入的结尾时，才会返回undef。（然后就会跳出while循环） [3] 由于钻石操作符通常会处理所有的输入，所以当它在程序里出现好几次时，通常是错误的。 (3) 调用参数 钻石操作符其实不会去检查调用参数，它的参数其实是来自@ARGV数组。 注意： [1] 这个数组是由Perl解释器事先建立的特殊数组，其内容就是由调用参数组成的列表。在程序开始运行时，@ARGV里就已经塞满了调用参数。 [2] 如果@ARGV是空列表，就会改用标准输入流。 [3] 只要尚未使用钻石操作符，你就可以对@ARGV动点手脚。 foreach (@ARGV) { print "$_/n"; } @ARGV = qw# filename #;# 强制让钻石操作符读取我们指定的文件 while (<>) { chomp; print "It was $_ that I saw!/n"; }
(4) 输出到标准输出 print操作符会读取一个列表里的所有值，并把每一项依次送到标准输出。 print @array;# 元素之间没有空格 print "@array";# 数组所有元素之间用空格分开 注意：因为Perl把数组内插到字符串中时，会在每个元素之间加上空格。 由于print处理的是待打印的字符串列表，因此它的参数会在列表上下文中执行。而钻石操作符（“行输入”操作符的特殊形式）在列表上下文中会返回由许多输入行组成的列表，所以它们彼此可以配合工作。 print <>;# 和Unix下的'cat'命令功能差不多 print sort <>;# 和Unix下的'sort'命令功能差不多 注：现在你可以用Perl重写所有的Unix工具程序。 注意：print后面的括号可有可无 —— 除非这样做会改变表达式的意义，否则Perl里的括号可以省略。 print (2+3)*4;# 输出5 print ( (2+3)*4 )# 输出20 (5) 使用printf格式化输出
$user = wcdj; $days_to_die = 30; printf "Hello, %s; your password expires in %d days!/n", $user, $days_to_die;
常用的转换（conversion）： %g —— 要输出恰当的数值形式，它会按需求自动选择浮点数、整数、指数形式 printf "%g %g %g/n", 5/2, 51/17, 51**17;# 2.5 3 1.0683e+29 %d —— 输出十进制的整数，它会舍去小数点之后的数字（注意：它会无条件舍去，而非四舍五入） printf "in %d days!/n", 17.85;# in 17 days! %f —— 输出浮点数，会按需要四舍五入 printf "%12f/n", 6*7+2/3; # ^^^42.666667 printf "%12.3f/n", 6*7+2/3; # ^^^^^^42.667 printf "%12.0f/n", 6*7+2/3; # ^^^^^^^^^^43 %s —— 字符串内插 printf "%10s/n", "wcdj";# ^^^^^^wcdj ("^"表示空格)
注意： [1] 对齐方向：负数（左对齐）；正数（右对齐）。 [2] %%，不会输出（参数）列表中的任何元素。 (6) 数组和printf 动态产生格式字符串。 my @items = qw( wcdj gerry yj ); my $format = "The items are:/n" . ("%10s/n" x @items);# x操作符 print "the format is >>$format<</n";# 用于调试 printf $format, @items;
注意：在标量上下文中，用了一次@items以取得它的长度，然后又在列表上下文中用了它一次以取得它的内容。（上下文的重要性） (7) 文件句柄 建议：使用全大写字母来命名文件句柄。 【六个特殊文件句柄】（Perl保留的） STDIN、STDOUT、STDERR、DATA、ARGV和ARGVOUT。 (8) 打开和关闭文件句柄 Perl提供的三种文件句柄STDIN、STDOUT和STDERR，都是由产生Perl进程的父进程（可能是shell）自动打开的文件或设备。 当你需要其他的文件句柄时，请使用open操作符。 open CONFIG, "filename"; open CONFIG, "<filename";# 从文件中输入 open BEDROCK, ">filename";#输出到文件（“>”会重新创建文件） open LOG, ">>logfile";#输出到文件（“>>”追加的方式） 在Perl 5.6之后，open另有一种使用三个参数的写法。 open CONFIG, "<", "filename"; 不正确的文件句柄 open的返回值来判断句柄是否正确： my $success = open LOG, ">>logfile";# 捕获返回值 if (! $success) { # open操作失败 # ... } 关闭文件句柄 当你不再需要某个文件句柄时，可以用close操作符来关闭它。 close CONFIG; 建议：请为每个open搭配一个close。最好是在每个文件句柄用完之后就立刻关闭它，哪怕程序马上就结束了。 注： 关闭文件句柄会：[1] 刷新输出缓冲 [2] 释放该文件上的任何锁。 (9) 用die处理严重错误 当Perl遇到严重错误（fatal error）时，程序应该终止运行，并用错误信息告知原因。 die函数会输出你指定的信息（到为这类信息预留的标准错误流中），并且让你的程序立刻终止，并返回不为零的退出码。 if (! open LOG, ">>logfile") { die "Cannot create logfile: $!"; } 注意： [1] $! 代表：可读的系统出错信息。当系统拒绝我们所请求的服务时，$! 会给我们一个理由。—— 即，解释性的系统错误信息就保存在Perl的特殊变量$!中。 [2] 只有在系统服务请求失败后的瞬间，$! 的值才会有用。如果操作成功了，就不会在$!里留下任何有用的信息。 [3] die还会自动将Perl程序名和行号附加在错误信息的后面。 (10) 使用warn输出警告信息 warn函数和die函数的区别：不同之处在于最后一步，warn不会终止程序的运行。 (11) 使用文件句柄 当文件句柄以读取模式打开后，可以从它读取一行数据，就像从STDIN读取标准输入流一样。 if (! open FILE, "<filename") { die "Cannot read file: $!"; } while (<FILE>) { chomp; print "$_/n"; }
写入或是添加模式打开的文件句柄可以在print或printf函数中使用。—— 使用时，请直接将它放在关键字之后、参数列表之前。 if (! open LOG, ">>logfile") { die "Cannot create logfile: $!"; } $name = "wcdj"; print LOG "2011-2-1/n"; printf LOG "My name is %s./n", $name;
(12) 改变默认的文件输出句柄 默认情况下，假如不为print或是printf指定文件句柄，它的输出就会送到STDOUT。 不过，你可以使用select操作符来改变默认的文件句柄。 if (! open LOG, ">>logfile") { die "Cannot create logfile: $!"; } $name = "wcdj"; print "2011-2-1/n"; printf "My name is %s./n", $name; select LOG;# 改变默认的文件句柄 print "select used/n"; print "2011-2-1/n"; printf "My name is %s./n", $name; select STDOUT;# 恢复默认句柄 print "select used/n"; print "2011-2-1/n"; printf "My name is %s./n", $name;
建议：当你所指定的默认文件句柄使用完毕之后，最好把它设回原先的默认值STDOUT来。 注意：将特殊变量$| 设定为1，就会使当前的默认文件句柄在每次进行输出操作后，立刻刷新缓冲区。 (13) 使用say来输出 Perl 5.10从正在开发的Perl 6 中借来了say这个函数。 它的功能和print函数差不多，但是会在每行输出的结尾自动加上换行符。 use 5.010; say "Hello!";# 比print和/n省掉4次按键 等价于： print "Hello/n";
