Как мне прокомментировать часть одной строки в Perl, например следующую строку:
if($clevel==0){#never happends}
Я хотел бы иметь возможность прокомментировать эту последнюю закрывающую скобку, не переходя на новую строку.
Как мне прокомментировать часть одной строки в Perl, например следующую строку:
if($clevel==0){#never happends}
Я хотел бы иметь возможность прокомментировать эту последнюю закрывающую скобку, не переходя на новую строку.
Знак #
начинает комментарий, который заканчивается концом строки.
Если это действительно так важно, используйте фильтрацию источников.
# C_Style_Comments.pm
package C_Style_Comments;
use Filter::Simple;
FILTER { s{/\* .* \*/}{}gmx };
1;
$ perl -MC_Style_Comments -e 'print /* 5, No wait, I mean */ 3'
3
Acme::SafetyGoggles
в CPAN ;-)
- person mob; 12.05.2010
По какой причине вы не можете написать:
if($clevel==0){#never happends}
as :
if($clevel==0){} #never happens
Есть несколько трюков, которые вы можете использовать, чтобы скрыть сообщения, например:
0 and 'some comment'
Но вы только еще больше запутаете, если кто-то другой будет поддерживать ваш код в будущем.
Работа в рамках ограничений языка, а не попытка заставить его вести себя как какой-то язык, с которым вы более знакомы, часто приводит к изучению новых вещей. Лично я ненавижу работать в IDL, но некоторые приемы борьбы с низкой производительностью циклов заставили меня оптимизировать код, который я с тех пор написал на других языках.
warn 'this should never happen'
выполнит конкретное задание, которое было задано.
- person Joe; 13.05.2010
this should never happen
. Конечно же, кто-то изменил некоторую логику, чтобы она попала в блок «никогда не происходит».
- person Joe; 24.04.2019
#
, а затем разрыв строки. Вы можете обращаться с ними как со своего рода скобками, так как в Perl мало что теряет смысл из-за того, что они находятся на разных строках.
my $ans = 2 + rand( 5 ) + $pixels / FUDGE_FACTOR;
To
my $ans = # 2 +
rand( 5 ) + $pixels # / FUDGE_FACTOR
;
Или из:
if ( dont_know_how_this_breaks() && defined $attribute ) {
#...
}
To:
if ( # dont_know_how_this_breaks() &&
defined $attribute ) {
#...
}
Используйте строку в качестве встроенного комментария:
perl -lne '$a++; q#some explanation#;print;'
Встроенные комментарии необходимы для комментирования Perl-кода, встроенного в Makefiles (а также Bash-скрипты и Vim-скрипты), как в этом вызове perl vimscript.. файл тезауруса VIM
Часть строки или многострочный комментарий в perl:
=comment
...
...
...
=cut