ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey A. Shkuratov 2:5020/133 02 Oct 2004 23:28:26
To : All
Subject : раскрутка стека -- хочется имена переменных и их значения
--------------------------------------------------------------------------------
Есть код раскрутки стека в обработчике фатальной ошибки:
for (0..99) { # Does someone want to read more deep stack?!
my @frame;
{ package DB; @frame = caller $_; } # Trick! Trick!
@frame or next;
local $Data::Dumper::Indent = 0;
local $Data::Dumper::Terse = 1;
$fatalmessage .= $indent . join(':', @frame[0..3]) . ' => (';
$fatalmessage =~ s/\smain:/$ENV{SCRIPT_NAME}:/;
foreach my $arg (@DB::args)
{
my $val=(Dumper $arg);
$fatalmessage .= $val . ",";}
$fatalmessage .= ")\n";
$indent="$indent ";
}
Хочется на каждом уровне раскручиваемой цепочки вызовов печатать список
переменных (определенных или видимых на этом уровне) с значениями для каждого
уровня. Куда копать?
WoW!
... Дом белой птицы.
---
* Origin: Уходя - не гpусти, пpиходя - не pадуйся. (2:5020/133)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
