第九章 打印和格式化输出.pptVIP

第九章 打印与格式化输出;9.1 使用print函数;;9.1.1设置默认文件句柄 Print函数一般使用默认文件句柄STDOUT,在perl5启动时,会自动打开文件句柄STDOUT. 它的初始设置是计算机的显示器,可以在程序中自定义STDOUT的设置,但一般采用select函数来改革者变默认的文件句柄,而不用改变STDOUT的设置. 语法如下： select (FILEHANDLE); ;;;;;;9.2格式化输出;;;;;;;;例9.2 格式输出变量 #!/usr/bin/perl %agehash=( Birdy=21, Alian=18, Gaole=25, Feng=23, Marilin=20, zoruo=35 ); $~=WRITEHEADER_TOP; write; $~=WRITEHEADER; write; ;;;;;;;;;;变量;;;用select函数改变默认文件句柄时，它返回当前默认文件句柄的内部表示，这样就可以创建子程序，按自己的想法输出，又不影响程序的其它部份，如下面的程序段： sub write_to_stdout{ local{$savefile,$saveformat}; $savefile=select(STDOUT); $saveformat=$~; $~=“MYFORMAT”; write; $~=$saveformat; select($savefile); };;;;;;例9.3 #!/usr/bin/perl $quotation=STDIN; chop($quotation); $~=QUOTATION; write; format QUOTATION= Quotation_for_theday: --------------------------- ~^ $quotation ~^ $quotation ~^ $quotation ~^ $quotation ~^ $quotation --------------------------- .;