*STDOUT 的问题

xhaooo

my $fh = *STDOUT;
$zip->writeToFileHandle($fh);  程序里有这两句，

my $fh = *STDOUT;  这种用法没见过， 是什么意思？   在 STDOUT前加个星号代表什么？
那位见多识广的给指点一下啦 ：）

兰花仙子

原帖由 xhaooo 于 2006-8-18 14:01 发表
my $fh = *STDOUT;
$zip->writeToFileHandle($fh);  程序里有这两句，

my $fh = *STDOUT;  这种用法没见过， 是什么意思？   在 STDOUT前加个星号代表什么？
那位见多识广的给指点一下啦 ：）

请看看前2天的帖子：
http://bbs.chinaunix.net/viewthr ... &extra=page%3D3

xhaooo

STDOUT是Perl默认的标准输出的句柄，它始终在符号表里存在：

$ perl -le 'print "$_ -> $::{$_}" for keys %::' |grep STDOUT
STDOUT -> *main::STDOUT

对文件句柄而言，say STDOUT与say *STDOUT及say \*STDOUT都是一样的效果。

谢了；）

xhaooo

print "Content-type: application/octet-stream\n";
print "Content-Disposition: attachment; filename=\"photos$form->{'file_id'}_$time.zip\n\n";
my $fh = *STDOUT;
$zip->writeToFileHandle($fh);

如果我想把上面这段代码转成catalyst的，该怎么处理print "Content-Disposition: attachment; filename=\"photos$form->{'file_id'}_$time.zip\n\n"; 这句呢？ cataltyst::Responese 里有$c->res->content_type的用法，好像没有 content-disposition相应的用法。。。。。。 头疼啊。。