Увеличьте многословность предупреждений Perl

Question

Увеличьте многословность предупреждений Perl

Есть ли способ увеличить многословность предупреждений в Perl? Я использую это, чтобы генерировать предупреждения.

#!/usr/bin/perl -w

Я особенно заинтересован в следующем, что я иногда ударил. Есть ли в любом случае Perl может печатать имя неинициализированной переменной?

Use of uninitialized value in printf at ./script.pl line 106, <LOG> line 323805.

3

perl warnings verbosity

Источник

user472485 22 июн '11 в 21:45

3 ответа

Другие вопросы по тегам perl warnings verbosity

user20745 22 июн '11 в 21:48 2011-06-22 21:48 · Answer 1 · 2011-06-22 21:48

Он попытается, если вы обновитесь до Perl 5.10 или новее. 5.14 актуально.

9

Источник

user20745 22 июн '11 в 21:48

user758523 22 июн '11 в 21:55 2011-06-22 21:55 · Answer 2 · 2011-06-22 21:55

#!/usr/bin/perl
use diagnostics;
#or
#use diagnostics -verbose;

это даст вам больше информации!
http://perldoc.perl.org/diagnostics.html

2

Источник

user758523 22 июн '11 в 21:55

user725418 22 июн '11 в 22:32 2011-06-22 22:32 · Answer 3 · 2011-06-22 22:32

Как говорит Фридо, похоже, у вас есть более старая версия Perl. Тем не менее, отладка с print это довольно простой и хороший метод "низких технологий", о котором нужно знать. Если у вас есть такая строка:

printf "%-10s %-10s %s %s", $var1, $var2, @array;

И вы получаете предупреждение, которое трудно разместить в любой переменной, вы всегда можете разделить его:

printf "%-10s ", $var1;
printf "%-10s ", $var2;
printf "%s %s", @array;

Тогда вы получите более конкретное предупреждение.

Или вы можете стать немного креативнее и сделать:

sub no_undef {
    my @return;
    push @return, map { defined $_ || "undef" } @_;
    return @return;
}
printf "%-10s %-10s %s %s", no_undef($var1, $var2, @array);