我正在寻找相当于这个Python代码的Perl:
from sys import stdout
if stdout.isatty():
print "yes"
else:
print "no"
我有一个Perl脚本,它将从命令行和CGI运行.在Perl脚本中,我该如何判断它的运行方式？
我有一个我写的脚本,可以在命令行上使用,也可以作为CGI脚本使用,需要确定脚本的调用方式,这样我就可以为web请求输出内容类型的头文件(也许还有一些反缓存标题也是).我的第一个想法是检查http环境变量是否存在:
my $js = build_javascript();
if ( exists $ENV{HTTP_HOST} ) {
print "Content-type: text/javascript\n\n";
}
print $js;
有没有更好的办法？
我应该写一个Perl脚本,它既可以在命令行上运行,也可以作为CGI脚本运行.我无法确定如何区分这两种模式.
那么请你告诉我如何实现逻辑？