如何按表格方式输出

如何按表格方式输出

如何按表格方式输出
perl中,可不可以按照表格方式输出文本
可以.
format吧.
在使用format的时候,有一.
在使用format的时候,有一个问题,比如:

my $packageNameStr="Package Name";
my $StatusStr = "Status";
my $DateTimeStr = "DateTime";
my $InstallTypeStr = "InstallType";
format STDOUT=
@<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<
$packageNameStr $StatusStr
.
write;
format STDOUT=
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<
$DateTimeStr $InstallTypeStr
.
write;
我在输出两遍的时候为什么输出结果是:
DateTime InstallType
DateTime InstallType
我想应该是format被重定义.
我想应该是format被重定义了,最后format等于:
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<
$DateTimeStr $InstallTypeStr
又因为perl不是像Quick Basic那样是解释执行,而是先编译,后执行
所以,format被write了两次。

这样就OK:
format STDOUT=
@<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<
$packageNameStr $StatusStr
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<
$DateTimeStr $InstallTypeStr
.
write;
但是我不想让这俩输出挨着.
但是我不想让这俩输出挨着,在输出第一行后,程序还有很多其他的工作要做,然后再输出第二行,就相当于第一行是一个表头,后面的都是表中的内容
这并不影响啊,只要write是最后执行就OK
可是我试了一下,--forma.
可是我试了一下,
format STDOUT=
@<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<
$packageNameStr $StatusStr
着两行之间不能加其他的程序代码?我要在这儿做很多操作
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<
$DateTimeStr $InstallTypeStr

还有一个重要的问题,就是有的时候程序中并不输出要求输出的内容,我检查过了,程序确实执行的这部分内容,但是就是不输出,这是什么原因?




   

难道就不能不把其他程序代.
难道就不能不把其他程序代码插在format里面?
我现在知道如何做了,但是为什么同样的程序有的时候能够输出,有的时候不能输出?