Y a-t-il une différence entre goto &func ; et &func ; en Perl ?

Question

goto &func;

&func;

Les deux me semblent identiques après quelques tests, est-ce le cas ?

Answer 1

Il y a une différence substantielle. Vérifiez ici : perl-goto

Answer 2

Vous avez fait les mauvais tests. Utilisez appelant pour voir ce qui se passe.

#!/usr/bin/perl

use strict;
use warnings;

sub foo {
  my $level = 0;
  while (my $sub = (caller($level))[3]) {
    print "$sub\n";
    ++$level;
  }
  print "\n";
}

sub bar {
  print "sub:\n";
  &foo;
}

sub baz {
  print "goto:\n";
  goto &foo;
}

bar();
baz();

Quand vous l'exécuterez, vous verrez quelque chose comme :

$  ~/stuff/goto
sub:
main::foo
main::bar

goto:
main::foo