Контроль неиспользуемых переменных в perl?

Question

[abskura]

Есть ли какие-нибудь решения, которые помогут в нахождении неиспользуемых переменных в коде?

Answer 1

[Вячеслав Голованов]

use strict;
use warnings;

таким образом, нужно будет объявлять все переменные, и при этом perl выдаст предупреждение, когда переменная упомянута в коде только один раз — это будет означать, что она объявляется и не используется.

Вообще, я в последнее время использую

use common::sense;

Макрос для хорошего набора директив.

Comments

[vsespb]

не нравится мне то, что common::sense не ругается на использование undef…

[abskura]

#!/usr/bin/perl use strict; use warnings; my $test_1; my $test_2; $test_1 = "hello\n"; print $test_1;

При этом ни кто не ругается на $test_2, которая объявлена всего один раз и ни где не используется. Я что-то делаю не так?

[Вячеслав Голованов]

Нда, как откомментировали ниже, система эта слегка подглюкивает…

Answer 2

[vsespb]

Выдаёт варнинг:
use warnings; $test_2=1; $test_1 = "hello\n"; print $test_1;

Не выдаёт варнинг:

use warnings; my $test_2=1; $test_1 = "hello\n"; print $test_1;

баг 2002-года rt.perl.org/rt3/Public/Bug/Display.html?id=5087
в 2013 за него объявлена награда rjbs.manxome.org/rubric/entry/1964

Only perl can parse perl

Answer 3

[Андрей Буров]

Поиск в гугле навел на Perl::Critic