search.cpan.org: Acme::Gosub - Implement BASIC-like "gosub" and "greturn" in Perl

NAME Acme::Gosub - Implement BASIC-like "gosub" and "greturn" in Perl VERSION version 0.1.9 SYNOPSIS use Acme::Gosub; sub pythagoras { my ($x, $y) = (@_); my ($temp, $square, $sum); $sum = 0; $temp = $x; gosub SQUARE; $sum += $square; $temp = $y; gosub SQUARE; $sum += $square; return $sum; SQUARE: $square = $temp * $temp; greturn; } DESCRIPTION Using this function enables using the "gosub" and "gr

[kiyo_hiko]

おおPerlにgosubが！と思ったらAcmeか、、、まあ実際gosubをわざわざ使わにゃならんのはコードの抽象化が狂っていたり、VB6/VBAみたいに言語機能だけだといまいち空腹感、という時ぐらいではある / ちなみにevalでもできそう…w

[k1m]

gosub-return ですか わろた