[comp.lang.perl] Arrays of filehandles?

darrylo@hpnmdla.HP.COM (Darryl Okahata) (06/14/90)

     Without using 'eval', is there any way to create arrays of
filehandles or to allow subroutines to return filehandles?

     Thanks,

     -- Darryl Okahata
	UUCP: {hplabs!, hpcea!, hpfcla!} hpnmd!darrylo
	Internet: darrylo%hpnmd@hp-sde.sde.hp.com

tchrist@convex.COM (Tom Christiansen) (06/14/90)

In article <8310002@hpnmdla.HP.COM> darrylo@hpnmdla.HP.COM (Darryl Okahata) writes:
>     Without using 'eval', is there any way to create arrays of
>filehandles or to allow subroutines to return filehandles?

You can use indirect file handles:
    $fh = &function;
    print $fh 'some data';
    while (<$fh>) {

--tom
--

    Tom Christiansen                       {uunet,uiucdcs,sun}!convex!tchrist 
    Convex Computer Corporation                            tchrist@convex.COM
		 "EMACS belongs in <sys/errno.h>: Editor too big!"