Am 28.05.25 um 11:08 schrieb DERUMIER, Alexandre via pve-devel:
> perl question: how to call a resursive private sub ? (it don't seem to
> allow it)
AFAIK, you can do it by declaring it up-front:
> [I] root@pve8a1 ~# cat asdf.pm
> use strict;
> use warnings;
>
> package Private;
>
> my sub addpriv;
> sub addpriv {
> my ($n, $m) = @_;
> return $n if $m == 0;
> addpriv($n + 1, $m - 1);
> }
>
> 1;
>
> package Public;
>
> sub addpub {
> my ($n, $m) = @_;
> return $n if $m == 0;
> addpub($n + 1, $m - 1);
> }
>
> 1;
>
> package Tester;
>
> print Public::addpub(2,3) . "\n";
> print Private::addpriv(2,3) . "\n";
>
> 1;
> [I] root@pve8a1 ~# perl asdf.pm
> 5
> Undefined subroutine &Private::addpriv called at asdf.pm line 28.
_______________________________________________
pve-devel mailing list
pve-devel@lists.proxmox.com
https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel
