主页 / user-12283863

Rawley Fowler's questions

Martin Hope
Rawley Fowler
Asked: 2025-04-23 03:17:49 +0800 CST
  • 6

我有一个非常大的程序，需要向 写入很多内容STDOUT，我希望能够将所有输出都传递给 和STDOUT，并将它们发送到任意的FILE。我决定使用IO::Tee来创建共享的可写句柄：

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(\*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

然而，这会导致深度递归并使程序崩溃。因此，我无法引用*STDOUT，而是创建了它：

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

这会产生警告：Undefined value assigned to typeglob at ... line 42，而当我使用Data::Printer来描述时$new_stdout，结果是undef。我该怎么做？

perl
Martin Hope
Rawley Fowler
Asked: 2024-08-26 00:54:25 +0800 CST
  • 7

我正在编写一个使用许多调用的模块的库Net::Http::Methods::format_request，不幸的是，在我的库中执行代码时我收到了一条警告：

Use of uninitialized value $v in concatenation (.) or string at ~/perl5/lib/perl5/Net/HTTP/Methods.pm line 167.

有什么方法可以让我从这个警告中获取堆栈跟踪，以便将其缩小到确切的调用？我的第一个想法是no warnings在每个潜在调用上方添加，但考虑到调用次数，这似乎是不切实际的。（虽然如果有必要我会这么做）。

perl
Martin Hope
Rawley Fowler
Asked: 2024-03-07 02:28:44 +0800 CST
  • 7

Perl 的解释器如何执行 if 语句？我想尝试为用作谓词的 if 语句实现一个简单的Lazy-Basic-Block-Versioningref，也许随后也可以为子例程实现。

在研究了源代码之后，我看到了除了控制流之外的所有操作代码。我的解释器经验非常有限，但我假设会看到一个OP_IF会弹出堆栈的谓词操作代码或类似的内容。我发现KEY_if它来自 Yacc 语法，随后在 中使用toke.c并翻译为 a KW_IF，但我找不到KW_IF实际使用的位置。

我最初打算只向 中添加一些带有全局状态的基本优化peep.c，但由于没有，所以OP_IF我很难了解如何处理控制流的全局。

perl