I am writing Perl script for my project, where I am passing same variable to different sub routine with different name so that it won’t collide with same variable within another subroutine,
Though, the variable holds same value due to continuous renaming in different subroutine its getting bit confusing and looks like bit of mess , for example,
my (%resource,$portoffset);
initialize(\%resource,$portoffset);
consolidate(\%resource, $portoffset);
dispatch(\%resourcel,$portoffset);
sub initialize
{
my ($HRI_resource,$I_portoffset) = @_;
}
sub consolidate
{
my ($HRC_resource, $C_portoffset)= @_;
}
sub dispatch
{
my ($HRD_resource, $D_portoffset)= @_;
}
Any one have any suggestion regarding this? Please let me know.
Cheers