
������Ф��뿿���ܤʲ����Ȥ���ä��Կ����ܤʲ�����
strict �ץ饰�ޤˤĤ��� - perl-mongers.org��use strict; �äƲ��ǥǥե���Ȥǥ���ˤʤäƤʤ��Ρ���
�����Ƥߤ�гΤ��ˡ����Ǥʤ�Ǥ��礦����
�ޤ�Ĺ����ͳ�Ȥ��Ƥϡ����̸ߴ�����Perl 5��Perl 4�ϡ�C++��C�ʾ�˰ۤʤ����Ǥ�����������C��C++�����Ĥ��ä��褦�ˡ�Perl 4��Perl 5�����ĤǤ�����Perl 5�Υ�꡼���ˤ����äƤϡ���ǽ��ĥ��Ʊ�����餤���̸ߴ����˵����Ȥ��Ƥ��ΤǤ�����������Perl 4�Υ�����ץȤϡ�Perl 5�Ǥ�ۤȤ��̵�ѹ���ư�������Ȥ�����ޤ����������ʤ�strict
�ˤʤä���ư���ʤ��ʤä��㤤�ޤ���͡�
Perl 6�Ǥϡ�Perl 5�Ȱ�äƲ��̸ߴ����ϤФä����ڤäƤ��ޤ����Ǥ��Τ�use strict
��use warnings
�ϥǥե���Ȥ�On��-e
�����å���Ȥäƥ��ޥ�ɥ饤��Ǽ¹Ԥ�����Τߥ��դˤʤ�Ȥ������ͤ˷��ꤷ�Ƥ��ޤ���
����Ǥ�������󤷤����Ȥ������ˤϡ��ʲ�����ˡ������ޤ���
�Ķ��ѿ�PERL5OPT
�����Ѥ���ΤǤ���
sh�ʤ���bash���ä���~/.profile
��
PERL5OPT='-Mstrict -Mwarnings'; export PERL5OPT # bash�ʤ� export PERL5OPT='-Mstrict -Mwarnings' # �Ǥ�OK
csh�ʤ���tcsh�ʤ�~/.cshrc
��
setenv PERL5OPT '-Mstrict -Mwarnings'
�Ƚ񤤤Ƥ�����OK�Ǥ���
���������Ȥ��ȡ�-e
��Ȥä����ˤ�ƶ����ڤӤޤ�������Ϸ빽��������ΤǤ���
% perl -le 'print $a' Name "main::a" used only once: possible typo at -e line 1. Use of uninitialized value $a in print at -e line 1.
������󡢤�����äƲ��򤹤뤳�Ȥ����Ϥ��ޤ���
% env PERL5OPT='' perl -le 'print $a'
������������Ǥ��޳ѤΥ��饤�ʡ�����ä����ʤ���
���������櫓�ʤΤǡ����ä��ꥹ����ץȤ˽񤯻��ˤ�
#!/usr/bin/perl use strict; use warnings;
�Ƚ񤯤Τ���ˡ(best practice)�Ȥʤä��Ȥ����櫓�Ǥ���
��CISCO IOS��ip classless
�ߤ����ʤ�Τ����Τ�11.3�ǥǥե���Ȥˤʤä��ä���
Dan the Perl Monger
���ȤäƤ��Ρ���ư���Ƥ��Τ����ơ��Ǥ��礦����