����������Τϡ���Ϥ�����㤬���ä������狼��䤹���Ȼפ���

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