Какую подстраховку вы используете в Perl?

use strict генерирует ошибку, если вы используете символические ссылки (т. Е. Строки для представления имен символов). Он генерирует ошибку, если вы используете переменную без ее объявления (это поощряет использование лексических переменных 'my', но также удовлетворяется, если вы правильно объявляете глобальные переменные пакета). Он также генерирует ошибку, если вы оставляете голые слова в скрипте (строки без кавычек, по сути, в соответствии с определением кавычек Perl). С помощью «strict» вы можете включать или отключать любую из трех категорий ограничений, и я делаю это в рамках определенных блоков. Рекомендуется включать ограничения, хотя в некоторых случаях законный код требует, чтобы некоторые из его функций были локально отключены. Однако следует долго и серьезно подумать, действительно ли это необходимо, и идеально ли их решение. Вы можете прочитать о ограничениях в Perl POD под названием «strict».

use warnings генерирует предупреждающее сообщение на основе многих критериев, которые описаны в POD 'perllexwarn'. Эти предупреждения не имеют ничего общего с ограничениями, а скорее обращают внимание на наиболее распространенные "подводные камни", с которыми можно столкнуться в их программировании. Также рекомендуется использовать предупреждения при написании скриптов. В некоторых случаях, когда сообщение может быть нежелательным, определенная категория предупреждений может быть локально отключена в пределах области действия. Дополнительная информация описана в «предупреждениях».

use diagnostics делает предупреждения более подробными, что очень желательно в среде разработки или обучения, особенно среди новичков. Диагностика, вероятно, не будет включена в «конечный продукт», но в процессе разработки она может стать действительно хорошим дополнением к обычно генерируемым кратким сообщениям. Вы можете прочитать о диагностике в Perl POD "диагностика".

Нет причин заставлять себя использовать только один из вышеперечисленных вариантов. В частности, в современных программах на Perl обычно следует использовать и использовать предупреждения, и использовать строгую.

Во всех случаях (кроме диагностики, которую вы в любом случае используете только для разработки) отдельные ограничения или предупреждения могут быть лексически отключены. Более того, их ошибки могут быть отловлены с помощью eval{ .... }, с помощью блоков try / catch Try::Tiny и некоторыми другими способами. Если есть опасения по поводу сообщения, дающего потенциальному злоумышленнику дополнительную информацию о сценарии, сообщения могут быть перенаправлены в файл журнала. Если существует риск того, что указанный файл журнала займет много места, существует более серьезная проблема, и источник проблемы должен быть либо устранен, либо, в некоторых редких случаях, просто отключить сообщение.

Программы Perl в настоящее время должны быть очень строгими / совместимыми с предупреждениями, как лучшая практика.

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

То, что у вас есть, даже начинает не хватать.

Я использую код, приближающий это, в качестве отправной точки. Он хорошо работает в моей среде, хотя, как всегда, ваш опыт может отличаться.

#!/usr/bin/env perl

use v5.12;
use utf8;
use strict;
use autodie;
use warnings; 
use warnings    qw< FATAL utf8      >;
use feature     qw< unicode_strings >;
use open        qw< :std  :utf8     >;
use charnames   qw< :full           >;

# These are core modules:
use Carp                qw< carp croak confess cluck >;
use File::Basename      qw< basename        dirname >;
use Unicode::Normalize  qw< NFD NFKD       NFC NFKC >;
use Getopt::Long        qw< GetOptions              >;
use Pod::Usage          qw< pod2usage               >;

our $VERSION = v0.0.1;

$0 = basename($0);  # shorter messages
## $| = 1;

$SIG{__DIE__} = sub {
    confess "Uncaught exception: @_" unless $^S;
};

$SIG{__WARN__} = sub {
    if ($^S) { cluck   "Trapped warning: @_" } 
    else     { confess "Deadly warning: @_"  }
};

END { 
    local $SIG{PIPE} = sub { exit };
    close STDOUT;
}

if (grep /\P{ASCII}/ => @ARGV) {
   @ARGV = map { decode("UTF-8", $_) } @ARGV;
}

binmode(DATA, ":utf8");

## Getopt::Long::Configure qw[ bundling auto_version ];

if (!@ARGV && -t STDIN) {
    print STDERR "$0: reading from stdin: type ^D to end, ^C to kill...\n";
} 

while (<>) {
    $_ = NFD($_);
    # ...
    print NFC($_);
}

exit;

=pod

=encoding utf8

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 OPTIONS

=head1 EXAMPLES

=head1 ERRORS   

=head1 FILES

=head1 ENVIRONMENT

=head1 PROGRAMS

=head1 AUTHOR

=head1 COPYRIGHT AND LICENCE

=head1 REVISION HISTORY

=head1 BUGS

=head1 TODO

=head1 SEE ALSO

=cut

__END__

Your UTF-8 data goes here.

Вы можете найти больше примеров подобных вещей в действии в Perl Unicode Tool Chest < / a>, в настоящее время около 50 файлов, от простых до возвышенных.

Используйте оба, как указано на связанной странице.

Документация, возможно, немного неясна. use strict и use warnings ловят разные проблемы; use strict не приведет к немедленному завершению вашей программы при обнаружении простых предупреждений, только если вы нарушите строгие требования синтаксиса. Вы по-прежнему будете получать только предупреждения, если ваш код будет делать менее серьезные вещи.

use strict;
#use warnings;
use diagnostics; # "This module extends the terse diagnostics..." by http://perldoc.perl.org/diagnostics.html

Оба! Но я предпочитаю диагностику, а не предупреждения, которые дают вам дополнительную информацию.