分页打印

sumila1icil

请教各位大侠,哪个命令可以开始打印新的一页.
具体情况是,不同的办公室打印到不同的页上.
Eg.
office:Shanghai
....
....
....

换叶

office:Shenzhen
....
....
...
急呀!!!!

怒剑狂啸

#!/usr/bin/perl
open (FILE,"<file";
$/="office:";
$i=1;
while (<FILE> {
        chomp;
        if ($_ ne "" {
                print $/,$_,"-"x77,$i++;
        }else{
                next;
        }
        $/="\n";
        <>;;
        $/="office:";

sumila1icil

$/="office:";
是什么意思呀?

怒剑狂啸

设置行分界标志

sumila1icil

我还是没说清我的意思,不过我现在知道了.
说出来和大家共享.
如果是要强制在某一条件下换到下一页打印其实很简单.
print "\f";
就ok 了.