Mega Code Archive

 

Categories / Perl / Subroutine

 

Nested method

#!/usr/bin/perl -w use strict; oneMethod(1,2,3); sub oneMethod {     print "In oneMethod, arguments are @_\n";     anotherMethod(4,5,6);     print "Back in oneMethod, arguments are @_\n"; } sub anotherMethod {     print "In anotherMethod, arguments are @_\n"; }