����������Τϡ���Ϥ�����㤬���ä������狼��䤹���Ȼפ���
GOTO��ȤäƤ⤤����Ǥ������ð��֤Υץ���������뿷�ͥץ�����ޤ˼�����������������ή���ɤ����餤���Τ�ʬ����ʤ��Ȥ�����
��GOTO ��Ȥä��餤����ʤ��Ρ���
��GOTO ��ȤäƤ⤤����Ǥ�������
�褯����Τϡ�¿�ť롼�פ���ȴ�����ꡢ����������ǽ���ä���˸����������硣
for (y = 0; y < height; y++){ for (x = 0; x < width; x++){ setPixel(img, x, y, pix[offset++]); if (offset == npix) goto DONE; } } DONE: return whatever;
����������⡢����������ˤ��Ȥ������礭����Loop Label���Ȥ������ʤ顢���äȤ��ä���롣�㤨��Perl�ʤ�ʲ��Τ褦�ˤ���Ф�����
LOOP: for my $y (0 .. $height-1){ for my $x (0 .. $width-1){ $img->setPixel($x, $y, $pix[$offset++]); last LOOP if $offset == $npix; } }
�㳰�������������Ǥ���С��������Ȥ���⤢�롣�ʲ���JavaScript���㡣
try{ for (var y = 0; y < height; y++){ for (var x = 0; x < width; x++){ img.setpixel(x, y, pix[offset++]); if (offset == pix.length) throw 'done'; } } }catch(e){}
�ޤ�¿�ť롼�פ���ȴ����Τ��㳰�����Ȥ����Τ��緶���ʵ������ʤ��Ǥ�ʤ����ɡ��Τ���Loop Label���㳰�������������Ǥϡ�goto�����פ��⤷��ʤ������ºݤʤ���Τ�¿��(i.e. JavaScript -- ������ͽ����ǤϤ���)���伫�ȡ�C�ǤϤ��μ��goto�ϰ��Ѥ��Ƥ��Ƥ�Perl��Ruby��Python��JavaScript��goto���ߤ����Ȼפä����ϰ��٤�ʤ���
���䡢Perl�ǤϻȤ�����������Perl�ǻ䤬�Ȥ�ͣ���goto�ϡ�goto label
�ǤϤʤ���goto &code
�Ǥ��롣����ʻȤ����롣
{ package Class::AutoAccessor; sub new{ bless {}, shift } sub AUTOLOAD{ my $method = our $AUTOLOAD; $method =~ s/.*:://o; no strict 'refs'; *$method = sub{ my $self = shift; $self->{$method} = shift if @_; $self->{$method}; }; goto &$method; } } my $o = Class::AutoAccessor->new(); $o->name("Dan Kogai"); warn $o->name;
����ϡ��ޤ�̤����Υ�åɤξ�����������ǡ��������⤽�Υ�åɤ�����¸�ߤ������Τ��Ȥ������褦�ˤ����뤿��μ�ˡ�ǡ��Ȥ��ɤ�����ͤ��ƻ��Ѥ���С������餷�����ϤǤ��롣
�ȤϤ��������Ƥ��̤ꤳ��ϰ���Ū�ʰ�̣�Ǥ�goto�ǤϤʤ���
������äƹͤ���ȡ�goto���ߤ����Ȼפ����ɤ����Ȥ����Τϡ����θ����˭������䤷�̤��ɸ�Ȥʤꤦ�뤫���Τ�ʤ���
Dan the Goner
���Υ֥����˥����Ȥ���ˤ�����������ɬ�פǤ���
��������������
���ε����ˤϵ��ĥ桼�����������Ȥ��Ǥ��ޤ���