Perl中\*STDIN与STDIN是否等价？\*main::STDIN对应sys.stdin吗？

关于*STDIN和STDIN的等价性 #

在Perl中，STDIN是直接的文件句柄，而*STDIN是类型团（typeglob）——它包含了所有以STDIN命名的符号（标量、数组、哈希、文件句柄等）。当你把*STDIN传给read这类需要文件句柄的函数时，Perl会自动提取类型团里的文件句柄部分，所以在read(*STDIN, $$buff, $len, $offset)这个场景下，*STDIN和STDIN的效果完全等价。

为什么用*STDIN而不是STDIN #

这种写法更多是历史习惯或者兼容性考虑：

• 老版本的Perl（5.6之前）部分函数要求传入类型团而非直接的文件句柄；
• 有些开发者会刻意用类型团，避免因包作用域问题导致找不到正确的文件句柄（不过在这个场景下其实没必要）。

*main::STDIN和STDIN的关系 #

Perl的默认包是main，*main::STDIN就是主包下的STDIN类型团。如果当前代码在main包中（CGI.pm的大部分代码都在默认包），*main::STDIN和直接写*STDIN是完全等价的，指向同一个标准输入文件句柄。

转译为Python的建议 #

Perl的STDIN对应Python的sys.stdin，针对read函数的转译：

• Perl的read(*STDIN, $$buff, $len, $offset)是从标准输入读取$len字节，写入到$$buff标量的$offset偏移位置；
• Python中可以用sys.stdin.read($len)读取指定长度的字节，然后将内容写入到目标缓冲区的对应偏移处。比如如果buff是bytearray类型，可直接做切片赋值：buff[offset:offset+len] = sys.stdin.read(len)。

内容的提问来源于stack exchange，提问作者snoopyjc