-->
页顶格式
在初始页的开头或每一新面的顶部发出。与之相关的变量: $= 页长 $- 剩下行数 随着write的使用$-会不段的减少。
定义一个页顶格式
format MYFORMAT_TOP=
PAGE @>
$#
--------------------------------------------------------------
.
此处的页顶格式与文件句柄MYFORMAT相关联
将格式指定到标准输出:
format STDOUT=
The magic word is "@<<<<<<"
$word
.
format STDOUT_TOP=
Page @>>
$#
----------------------------
.
对于主格式可省去STDOUT
对于其他文件句柄确定与指派格式
此处涉及到的两个特殊变量:
$~ 当前格式
$^ 当前页顶格式
设置格式时只要设置这两个变量就行了:
$topform=$^;
$^='MYFORMAT_TOP';
write;
$^=$topform;
注意保存原用的页顶格式
如果设置其他文件件句柄的格式可如下操作:
$oldfh=select MYHANDLE;
$~='MYFOMAT';
$^='MYFORMAT_TOP';
select $oldfh;
先将默认的文件句柄保存，并将MYHANDLE设为当前文件句柄，设定当前文件句柄的格式及页顶格式使用完后保存.
未完
发表评论