Проверял Сайт Jono о Комплекте разработчика Поддержки Ubuntu и задавался вопросом, было ли возможно обратиться к другим в моей стране, состоянии, городе, сообществе, не имея необходимость быть в locoteam.
В зависимости от ответа дополнительный вопрос был бы этим, если возможно создать другой locoteam.
Абсолютно! Мы поощряем и рекомендуем людям защитить Ubuntu или как часть Команды LoCo или за пределами Команд LoCo, если они желают.
Основная цель ADK состоит в том, чтобы просто предоставить всю документацию и материалы, необходимо выполнить большую поддержку.Удачи!
Если Вы находитесь в городе/городе, который не имеет команды, то Вы имеете право создавать тот.
И, даже если Вы не член текущей команды, можно всегда обращаться к кому-то, кто путем соединения с ними по http://loco.ubuntu.com
Carp::longmess
сделает то, что Вы хотите, и это стандартно.
use Carp qw<longmess>;
use Data::Dumper;
sub A { &B; }
sub B { &C; }
sub C { &D; }
sub D { &E; }
sub E {
# Uncomment below if you want to see the place in E
# local $Carp::CarpLevel = -1;
my $mess = longmess();
print Dumper( $mess );
}
A();
__END__
$VAR1 = ' at - line 14
main::D called at - line 12
main::C called at - line 10
main::B called at - line 8
main::A() called at - line 23
';
я придумал этот sub (Теперь с дополнительным благословением' действие!)
my $stack_frame_re = qr{
^ # Beginning of line
\s* # Any number of spaces
( [\w:]+ ) # Package + sub
(?: [(] ( .*? ) [)] )? # Anything between two parens
\s+ # At least one space
called [ ] at # "called" followed by a single space
\s+ ( \S+ ) \s+ # Spaces surrounding at least one non-space character
line [ ] (\d+) # line designation
}x;
sub get_stack {
my @lines = split /\s*\n\s*/, longmess;
shift @lines;
my @frames
= map {
my ( $sub_name, $arg_str, $file, $line ) = /$stack_frame_re/;
my $ref = { sub_name => $sub_name
, args => [ map { s/^'//; s/'$//; Carp::longmess
сделает то, что Вы хотите, и это стандартно.
[110] я придумал этот sub (Теперь с дополнительным благословением' действие!)
[111] }
split /\s*,\s*/, $arg_str
]
, file => $file
, line => $line
};
bless $ref, Carp::longmess
сделает то, что Вы хотите, и это стандартно.
[110] я придумал этот sub (Теперь с дополнительным благословением' действие!)
[111][0] if @_;
$ref
}
@lines
;
return wantarray ? @frames : \@frames;
}