use strict; use warnings; sub FirstSub { my ($Param) = @_; sub add1 {my ($arg)=@_; return $arg+1;}; sub add2 {my ($arg)=@_; return $arg+2;}; sub add3 {my ($arg)=@_; return $arg+3;}; sub add4 {my ($arg)=@_; return $arg+4;}; sub add5 {my ($arg)=@_; return $arg+5;}; $Param = add1($Param); $Param = add2($Param); $Param = add3($Param); $Param = add4($Param); $Param = add5($Param); return $Param; } print FirstSub(10);
In reply to Re: sub fuction inside sub functioin?
by spmlingam
in thread sub fuction inside sub functioin?
by deewanagan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |