���졢

���Ǥ�JPA����οͤ����������ˤ�����äƤ���

�Τ����ɡ����ƤӤ������ä��ΤǼ�­���Ƥ������Ȥˤ��롣

�ޤ��ϳ������顣

Perl�Ϥ⤦���ꡩ | | �ץ������2.0���� | �����ʤ�BLOG
������ͤ����������ʤˤϥ��֥롼����Ρְ����פȤ�����ǰ���ʤ������ѿ��Ϥ��٤ƥ������Х���ä����������������������ˤʤ�...�Ȥ���������λ��ͤϡ�����㥤�󥿥ץ꥿�μ����ϳڥ�����������ɤ⡢���ռ��ʤȥߥ����ˤ����ˤˤϷ礱���͡�

�����ä��äƱѸ�����ܸ�ۤɤ���ʤ��������ƱѸ�����ܸ줬����ʸ�Ϥ⤭�줤��ʸ�Ϥ⤫����褦�ˡ���ͳ�٤��礭�ʸ���ϱ����⤭�줤�ˤ�񤱤��Τ����������ˤ����� Perl 5 �Ȥ����Τϡ���ڤ��Ƥ�����Ǥ�äȤ⼫ͳ�ʸ������

������� free (��ͳ)�� free (����)����ʤ���¾�θ�����ä��饨�顼�ǤϤͤƤ��ޤ���Τ⡢Perl�Ϥʤ�٤���̣���̤����Ȥ��롣�ꥹ�ȤκǸ夬,�ǽ���äƤ��Ƥ⡢"double"��'single'�Ǥʤ�q{quote}��qq($interpolation)������դ��Ƥ���롣

�������ڥ�����ä�?���ä��饽�����򸫤Ƥ����衣��ľ��python��ruby�ʤ���ͤ��㤨�л�ⲿ�Ȥ������Ǥ������ʵ������뤷���º� python �� ruby ��ʣ�����������롣������ Perl 5 �Ϥ���夲������������٤Ϥ��ν��֤��ȻפäƤ�����

Perl�Ϥ⤦���ꡩ | | �ץ������2.0���� | �����ʤ�BLOG
���դ��Υ��֥������Ȼظ��������إ�ƥ��ʤ�����Ǥ�...���ν�ʡ���פ��bless�ˤ櫓�Ǥ������ֿ��ν�ʡ�פäƲ�������

��ˤȤä� Perl �ΰ��֤������Ȥ����ϡ����߻ظ���ۤ����Ƹ��դ��Ǥ���Ȥ��������������ĤǤϤʤ��������ǡ��̤Τ������ͤ��륤�󥻥�ƥ��������������롣�������̤Τ������ͤ�����ץ�����ޡ�����������(�񤭤λ��ͽ�)��(�񤭤Υ�����)�ˤ�������Υץ�����ޡ���ꤺ�äȹ⤤�ؤ�ȵ�Ϳ�����Ƥ��롣

perl�����ʤ���ץ�����ߥ󥰸���μ����� perl �� bless ���Ƥ���Τ��ѿ������Τˤ� reference ������Perl�����ʤ�� perl �����ѼԤ�ʸ���� bless ���Ƥ���Τϡ� freedom �ʤΤ���

Perl�Ϥ⤦���ꡩ | | �ץ������2.0���� | �����ʤ�BLOG
3. 5.8��2002ǯ�� �ǥޥ�����󥳡��ǥ��󥰤ˡʼ¼���Unicode�ˡˤ褦�䤯�б�������ϥ����ߥ�Ū�ˤϤ���ä��٤���ä���������Ǥ��ʤ��ä��Ǥ�....

�狼�äƤʤ��ˤ�ۤɤ����롣

�ޥ�����󥳡��ǥ��󥰤ؤ��б��Ȥ�����̣�ǡ�Java�κ�ϽŤ�����Ĥ�char��16�ӥåȤˤ��Ƥ��ޤä����ȡ�����Τ�������2 chars��ʸ�������ޤ�Ƥ��ޤä������줬Java����������ʤ�ޤ��褫�ä�������������� JavaScript �ޤDZ�Ƥ��Ƥ��ޤä���alert('𪚲'.length)��1����ʤ��ΤϤʤ��ʤΤ����ᤷ�����Ȥ�Python�ޤǤ��줬1�ˤʤ뤫�ɤ����ϥ���ѥ��뼡��ʤΤǤ��롣

�⤦��Ĥ�Shift_JIS��CP932�κ�Ʊ������ο��蘆�Ϥ�����������㤤����ˡ�����ϰϤϤ�깭������ΤȤ����ޤDzФ�ʴ������Ǥ��䤬�롣

����������Ū�˸���ȡ���������ǹ������Ф���Τϡ���ڤ����������Ǥ� Perl 5.8 �ʹߤΤߤ�������⡢�ɤ����ơ�Ruby 1.9�ʹߤϤޤ���ڤ��Ƥ���ȸ����ʤ��ΤǤޤ������˲ä���Τ��ᤤ��������

����������ʸ����ǤϤʤ��Х�����Ȥ��ư��������Ǥ����ΤǤ���С�Perl 4�λ��ˤ������Ƥ�����jcode.pl �ϰ������������̤���ˤ����ȤäƤ���Τϲ��Ф���

�ǡ�������

��ĸ�����Τϡ����ȥץ�����ߥ󥰸���˴ؤ��Ƥϼ����ۤɡֻ����פȤϸ���ʤ����Ȥ���Matz����APL����夲���ΤϤ��Ƥ���ʤ�������ʣ�����椨���ä��꤬���ʤ��ʤ�Ⱦ��Ǥ���������ʤ���������Ȱ�äơ������ꤺ�ä�ñ��ʥץ�����ߥ󥰸���ϡ���ü��ڤ���Ȥ�����ñ�ˤϻ�ʤʤ��Τ���

����������Ǥβ�ǽ���ϥ����ǤϤʤ���HyperTalk �Ϥ��Ф餷��������ä�����HyperCard �Ȥ����־��פ��ʤ��ʤä��Τ�Ʊ���˻��¾����Ǥ���������Ρ־��ס����ʤ���Ķ����ò���������Ȥ����ΤϤ��Τ褦�����ǤΥꥹ�������äȹ�ޤ롣PHP�Ϥ���������äȿ��ۤ��Ƥ��롣JavaScript��ActionScript(Flash)�Τ������ǡ�MVC��V�򥵡��С�¦�Ǥ��ɬ������������ĤĤ��븽�ߡ�PHP��̥�Ϥ�ޤ������äƤ��뤫�������äȤ�PHP��¾�θ��줬�֤����ޤ��ä��襤�פȻפäƤ��뤳�Ȥ򿷤��˼�������Ȥ������¤ˤޤ�ʸ���Ǥ⤢��Τǡ��ष�����ФˤʤäƤ�������������Ȥ�ƤӴ󤻤뤫���Τ�ʤ�����Ȥ�?���ꤷ�ޤ���:)

Perl�ϡ�����10ǯ�Τ����ǺǤ�¿����¾�θ��줫����ߡ������ƺǤ�¿����¾�θ������ޤ줿����ǤϤʤ��������줬����ʤ�³���ץ������Ǥ��뤳�Ȥˡ������ȤäƤ�����ä����ˤ����ʤ�����ϸ����dis��ץ�����ޡ��Ǥ����ꡢdis����ۤ�˭���ʸ�����Ƥ�ץ�����ޡ��Ǥ��ꤿ���ȴꤦ��ʤ���

Dan the Polyglot

���ޤ�:

���QuickSort��Haskell��ͭ̾����⤳���񤱤롣@_�ȤϤ��ߤ�Ȥ��褦��

[Run via codepad]
sub qsort{my$p=@_?shift:return;qsort(grep{$_<$p}@_),$p,qsort(grep{$_>=$p}@_)}