использование strict и warnings

[Phoinix]

В скриптах использую
use strict;
use warnings;

Имеет ли смысл после отладки и тестирования скрипта убирать эти прагмы?

Изменение скрипта не предвидится, а если и предвидится то не самого скрипта, а его исходного файла...

[arto]

про последнее предложение поподробне...

[Phoinix]

arto

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

[arto]

можно не использовать.

[Green Kakadu]

что отладка его уже не производится, зачем тогда лишние прагмы?

а может она до конца не доведена.. так хоть ругнется, если что.

[Wyclef]

Код: [Выделить]

# use warnings;
# Практически всегда убираю, если не забываю или не использую -
# зачем лишний раз волноваться. ;) ...и мусорить в логах.

[Phoinix]

Green Kakadu
Ну если ругнется, все-равно логи есть, хотя предупреждений и не будет но это не критично...

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

Wyclef
Я вот тоже волнуюсь... проверить что все переменные на 100% инициализированы довольно трудно... и логи растут...

А как быть с use strict???

[NeoNox]

Phoinix
вот уж не думал что придется тебя отсылать к ФАКу...
Получай раз: http://forums.webscript.ru/showthread.php?s=&threadid=9932&msgnum=0
и два:
http://www.perldoc.com/perl5.8.4/pod/perlstyle.html

[Phoinix]

NeoNox
Да нет... я не отказываюсь от использования этих прагм, я их и использую все время...

Просто хочется немного съэкономить памяти просто их не включая...

Опять же perlstyle я читал и свято учитываю его рекомендации... но опять же интерпритатору - пофиг мои комментарии, он их не читает, а на моем серваке крутится порядка 20 одинаковых скриптов для каждого домена + на других серваках тоже, обновляются они все от одного скрипта, и исправления я в него вношу, что бы не запутаться... а так желания отпадает лезть в другие...

[Green Kakadu]

2Phoinix
хорошее желание.

 .. еще  для "оптимизации" и повышения произ-ти рекомендуют включать
 use integer;

если нет операций с плавающей точкой - лучше об этом интерпритатору сказать.

[NeoNox]

Green Kakadu perldoc less (;

[Phoinix]

To All

Вопрос отпал сам собой... я все-равно использую strict и warnings, если не в основном скрипте, так в модуле к нему... что, практически, равносильно по загрузке...

Green Kakadu
use integer; - спасибо, но не поможет...

[arto]

# cat > a.pl
#! /usr/bin/perl

use strict;
use warnings;

exit;
^D
# cat > b.pl
#! /usr/bin/perl

exit;
^D
# chmod +x ?.pl
# perl -MBenchmark=:all -e "timethese (\\$ARGV[0],{\'A\' => \'system (\\"./a.pl\\");\',\'B\' => \'system (\\"./b.pl\\");\'});" 10000
Benchmark: timing 10000 iterations of A, B...
         A: 116 wallclock secs ( 0.29 usr  3.17 sys + 80.23 cusr 22.76 csys = 106.45 CPU) @ 2890.17/s (n=10000)
         B: 41 wallclock secs ( 0.41 usr  4.02 sys + 20.55 cusr 15.29 csys = 40.27 CPU) @ 2257.34/s (n=10000)
#

[NeoNox]

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

[arto]

тут два одинаковых скрипта, отличающихся только use {warnings,strict};