sub
seguidas
del cuerpo entre llaves. Las definiciones de subrutina se pueden poner
en cualquier lugar del texto pero son siempre definiciones globales.
para invocar a una subrutina se escribe su nombre precedido de un
&
.
cat nestedsubs.pl #!/usr/bin/perl -w sub marine { sub submarine { $n +=1; print "sub submarine $n!\n"; } $n +=1; print "sub marine $n!\n"; } &marine; &submarine;Observe como la subrutina
submarine
es accesible desde el programa principal:
nereida:~/perl/src> nestedsubs.pl sub marine 1! sub submarine 2!