=encoding euc-jp =head1 NAME perlstyle - Perl �������륬���� =head1 DESCRIPTION �ץ�����ޤϡ��������ͤ��줾�졢�ե����ޥåȤˤϹ��ߤ�����Ǥ��礦���������������Ĥ��Υ����ɥ饤��˽������Ȥˤ�äơ��ץ������β��������ݼ����򤢤��뤳�Ȥ��Ǥ��ޤ��� ��äȤ���פʤ��Ȥϡ��Ĥͤ˥ץ�������B<-w>�ե饰��Ĥ������餻�뤳�ȤǤ���ɬ�פǤ���С�C �ץ饰�ޤ� C<$^W> �ѿ�����Ѥ��ƥ����ɤΰ��������Ƿٹ������Ū�˥��դˤ��ޤ����ޤ����Ĥͤ� C ����Ѥ��٤��Ǥ����⤷��C ����Ѥ��ʤ��ʤ顢������ͳ��ʬ�����򤷤Ƥ����٤��Ǥ���C �� C �ץ饰�ޤ������Ǥ��礦�� �����ɥ쥤�����Ȥ����Ѥ˴ؤ��Ƥϡ�Larry ���������ˤ����Ƥ���ΤϤ��ä���ġ�ʣ���ԤΥ֥��å����Ĥ��֥饱�åȡ����ι�¤�򳫻Ϥ���������ɤ�Ʊ�����֤ˤʤ��ƤϤʤ�ʤ��Ȥ������Ȥ����Ǥ�������¾�ˡ���Τ��ޤ궯���Ϥʤ����ߤϰʲ����̤�Ǥ�: =over 4 =item * 4�����Υ���ǥ�ȡ� =item * ��ǽ�ʤ顢���ϥ֥饱�åȤȥ�����ɤ�Ʊ��Ԥˡ������Ǥʤ���С����Ϥ򤽤����롣 =item * ʣ���ԥ֥��å��γ��ϥ֥饱�åȤ����˥��ڡ����� =item * 1�ԤΥ֥��å��ϥ֥饱�åȤ�ޤᡢ1�Ԥǡ� =item * ���ߥ���������˶���ʤ��� =item * "û��"1�ԥ֥��å��Ǥϥ��ߥ�������ά�� =item * �ۤȤ�ɤα黻�Ҥ�����ˤϥ��ڡ����� =item * "ʣ����"����(�֥饱�å���)������ˤϥ��ڡ��� =item * �ۤʤ뤳�Ȥ򤹤����󥯤δ֤ˤ϶��ԡ� =item * else �򤯤äĤ��ʤ��� =item * �ؿ�̾�ȳ��ϥ��å��δ֤ˤϥ��ڡ����ʤ��� =item * ����ޤθ���ˤϥ��ڡ����� =item * Ĺ���Ԥϡ��黻�Ҥθ���Dz��Ԥ���("and" �� "or" �����) =item * �ԤκǸ�Υ��å��θ���˥��ڡ����� =item * �б��������Ǥγ��ϰ��֤򤽤����롣 =item * ��Ĺ��ɽ���ϡ��狼��ˤ����ʤ�ʤ��¤�Ͼ�ά���롣 =back Larry �ˤϤ���餽�줾��򹥤���ͳ������ޤ�������ʳ��οͤ�����Ȥޤ� ����Ʊ���Ǥ���ɬ�פϤʤ��Ȥ��äƤ��ޤ��� ¾�ˡ������פʥ������������򼨤��ޤ�: =over 4 =item * �����򤢤���ˡ��I<�Ǥ���>����Ȥ��äơ�����I<���٤�>�Ȥϸ¤�ޤ���Perl �ϰ�ĤΤ��Ȥ��͡�����ˡ�ǤǤ���褦���߷פ���Ƥ��ޤ����顢����ɤߤ䤹����Τ����֤褦�˿������Ƥ������������Ȥ��С� open(FOO,$foo) || die "Can't open $foo: $!"; �ϡ� die "Can't open $foo: $!" unless open(FOO,$foo); ����ɤ��Ǥ��礦��2�Ĥ�Ǥϡ�����ʸ�μ������������Ҥ˱���Ƥ��ޤäƤ��ޤ����դˡ� print "Starting analysis\n" if $verbose; �ϡ� $verbose && print "Starting analysis\n"; ����ɤ��Ǥ��礦������ʸ�μ������ϡ��桼����B<-v>�򥿥��פ������ɤ��� �ǤϤʤ�����Ǥ��� Ʊ�ͤˡ�����黻�Ҥ��ǥե���Ȱ��������ꤷ�Ƥ��뤫��Ȥ��äơ����Υǥե���Ȥ�Ȥ�ʤ��ƤϤʤ�ʤ��Ȥ������ȤˤϤʤ�ޤ��󡣤��Υǥե�����ͤ�����Τϡ����Ƥʥ����ƥ�ץ�����ޤ�����ȯ�ץ������򤫤��Ȥ��Τ���ˤ���ޤ����ץ��������ɤߤ䤹������ˤϡ��������ά���ʤ��褦�ˤ��ޤ��礦�� Ʊ�ͤˡ�¿���ξ��ǥ��å����άI<�Ǥ��ޤ�>�����ʲ��Τ褦�˾�ά�������뤳�ȤϹ�����٤��Ǥ��礦: return print reverse sort num values %array; return print(reverse(sort num (values(%array)))); �¤ä��Ȥ��ϡ����å���񤤤Ƥ������������ʤ��Ȥ⡢�ְ㤨����ʬ��B �� %�����ǥϥ��饤�Ȥ��뤳�Ȥ��Ǥ��ޤ��� �¤äƤ��ʤ��Ȥ��⡢���ȤǤ��Υ����ɤ���ƥʥ󥹤���ͤ������ͤ��� �����������ְ�ä��Ľ�˥��å��򤤤�Ƥ��ޤ����⤷��ޤ��� =item * �롼�פ���Ƭ��������ȴ���Ф��Τˡ��Ф����������ɤ򤫤��ʤ��Ǥ��������� Perl�ˤ�C�黻�Ҥ�����Τǡ������ȴ���Ф����Ȥ��Ǥ��ޤ�������� �Ȥ����ɤߤ䤹������ˤ�"�����ȥǥ��"���ޤ�: LINE: for (;;) { statements; last LINE if $foo; next LINE if /^#/; statements; } =item * �롼�פΥ�٥���Ѷ�Ū�˻Ȥ��ޤ��礦 -- �������򤢤���ΤȤȤ�ˡ�¾�ʳ��Υ롼��ȴ���Ф���Ǥ���褦�ˤʤ�ޤ�����ۤɤ���򸫤Ƥ��������� =item * grep() (�� map())���ޤ� `�Хå��ƥ�����` �� void ����ƥ����ȡ��Ĥޤ��֤��ͤ�̵�뤹��ʸ�ǻ��Ѥ��ʤ��Ǥ��������������δؿ��Ϥ��٤��֤��ͤ���äƤ��ޤ����顢�������Ѥ��Ƥ�������������ʤ��ΤǤ���С�foreach() �롼�פ� system()�ؿ�����Ѥ��Ƥ��������� =item * �ݡ����ӥ�ƥ��Τ���ˡ����٤ƤΥޥ���Ǽ�������Ƥ��ʤ����⤷��ʤ���ǽ����Ѥ���ݤϡ������eval�ǰϤäơ����Ԥ��뤫�ɤ��������å����Ƥ������������뵡ǽ�����ɤΥС�������ѥå���٥�Ǽ�������Ƥ��뤫�ΤäƤ�����ˤϡ�C<$]> (C�⥸�塼��Ǥϡ�C<$PERL_VERSION>) ������å����뤳�Ȥ��Ǥ��ޤ���C�⥸�塼���Ȥ��С�Perl���󥹥ȡ������ C�ץ������ˤ�äƷ��ꤵ�줿�ͤ�Ĵ�٤뤳�Ȥ��Ǥ��ޤ��� =item * �ˡ���˥å��ʼ��̻Ҥ�����Ǥ������������Υˡ���˥å��������̣���뤫�פ��Ф��ʤ���С�����Ǥ��� =item * $gotit �Τ褦��û�����̻Ҥʤ�ok�Ǥ�����ñ�����ڤ�ˤϥ����������������Ѥ��Ƥ�������������Ū�ˤϡ��Ȥ��˱Ѹ�Υͥ��ƥ��֥��ԡ������Ǥʤ��ͤˤȤäƤϡ�$var_names_like_this ������ $VarNamesLikeThis ����ɤߤ䤹���Ǥ������Υ롼��� VAR_NAMES_LIKE_THIS �ˤĤ��Ƥ�Ʊ�ͤ����ƤϤޤ�ޤ��� �ѥå�����̾�ϡ����Υ롼����㳰�ˤʤ뤳�Ȥ�����ޤ���Perl�Ͼ�ʸ���Υ⥸�塼��̾��C��C�Τ褦��"�ץ饰��"�⥸�塼��Τ����ͽ�󤷤Ƥ��ޤ�������¾�Υ⥸�塼�����ʸ������Ϥ���ơ���ʸ���򺮤��ƻ��Ѥ��٤��Ǥ�������������������ϻ��Ѥ��ޤ��󡣥ץ�ߥƥ��֤ʥե����륷���ƥ�Ǥϡ��⥸�塼��̾��ե�����Ȥ���ɽ������ݤˡ��Х��ȿ������¤����뤿��Ǥ��� =item * �ѿ��Υ������פ�������ɽ������Τˡ���ʸ����ʸ����Ȥ��������Ǥ��礦�����Ȥ���: $ALL_CAPS_HERE ����Τ� (perl�ѿ��Ȥξ��ͤ�����!) $Some_Caps_Here �ѥå������磻�ɤʥ������Х�/�����ƥ��å��ѿ� $no_caps_here �ؿ��������פ� my(),local()�ѿ� �ؿ��ȥ᥽�åɤ�̾���Ϥ��٤ƾ�ʸ�����ȥ٥��ȤǤ���E.g., $obj-Eas_string(). ��Ƭ�˥��������������Ĥ��뤳�Ȥˤ�äơ��ѿ���ؿ�����������ѥå��������ǻ��Ѥ��٤��Ǥʤ����Ȥ򼨤����Ȥ��Ǥ��ޤ��� =item * �ۤ�Ȥˤ����㤴���������ɽ����Ȥ����ˤϡ�C�����Ҥ���Ѥ��ƥ��ڡ����򤤤졢���ߤߤ����ˤʤ�ʤ��褦�ˤ��Ƥ�������������ɽ����˥���å����Хå�����å��夬����Ȥ��ˤϡ��ǥ�ߥ��˥���å����Ȥ�ʤ��褦�ˡ� =item * ������"and"��"or"�黻�Ҥ���Ѥ����ꥹ�ȱ黻�ҤΥ��å�����������ˤʤä��ꡢC<&&>��C<||>������ȯ������Τ��򤱤Ƥ������������֥롼����ϡ��ؿ���ꥹ�ȱ黻�ҤǤ��뤫�Τ褦�˰���������ѥ���ɤ䥫�å�������ȯ������Τ��򤱤Ƥ��������� =item * print()ʸ�򷫤��֤������ҥ��ɥ�����Ȥ���Ѥ��Ƥ��������� =item * �б������Τγ��ϰ��֤Ϥ������Ƥ����������Ȥ��ˡ�1�Ԥˤ����ޤ�ʤ���Τ˴ؤ��ơ� $IDX = $ST_MTIME; $IDX = $ST_ATIME if $opt_u; $IDX = $ST_CTIME if $opt_c; $IDX = $ST_SIZE if $opt_s; mkdir $tmpdir, 0700 or die "can't mkdir $tmpdir: $!"; chdir($tmpdir) or die "can't chdir $tmpdir: $!"; mkdir 'tmp', 0777 or die "can't mkdir $tmpdir/tmp: $!"; =item * �����ƥॳ������֤ꥳ���ɤϤĤͤ˥����å����Ƥ����������ɤ����顼��å�������STDERR�˽񤭽Ф��졢�����ȯ���������ץ������̾�䡢���Ԥ��������ƥॳ����Ȱ�����������(�ȤƤ����)ɸ�ॷ���ƥ२�顼��å�������ޤ�٤��Ǥ�������ץ�Ǥ�������ʬ����: opendir(D, $dir) or die "can't opendir $dir: $!"; =item * ���䤹���ʤ���ˤϡ�tr �γ��ϰ��֤򤽤����Ƥ��������� tr [abc] [xyz]; =item * �����������θ���ޤ��礦��Ʊ�����Ȥ򤢤ȤǤ�뤫�⤷��ʤ��Ȥ��ˡ�Ǿ���Ϥ��ȯ�Υץ�������̵�̤ˤ���ɬ�פϤ���ޤ���? �����ɤΰ��̲����θ�����⥸�塼��䥪�֥������ȥ��饹��񤯤��Ȥ��θ���ޤ��礦�������ɤ� C �� C (���뤤�� B<-w>) ��ͭ���Ǥ⤭�����ư������θ���ޤ��礦�������ɤ�ΤƵ�뤳�Ȥ��θ���ޤ��礦�������θ������Ѥ��뤳�Ȥ��θ���ޤ��礦��¾�ˤ�ġĤ������⤦�����䡣 =item * �Ĥͤ˰������ =item * �Ĥͤ���Ũ�ˡ� =back