Re: Symbolic references disallowed

[Eliya]

in reply to Symbolic references disallowed

A more typical way to handle this would be to say

sub cfgToARRAY {                
    my ($cfgfile) = @_ ;
    open(OUTPUT, "<", $cfgfile) or die "Can't open $cfgfile: $!" ;
    my $input ;
    my @array;
    while ($input = <OUTPUT>) {
       chomp $input ;
       push (@array, $input) ;
    }
    close(OUTPUT) ;
    return(@array) ;
}

###

my @TEST = cfgToARRAY("/informatica/scripts/arrayDisplayCDCWFs.cfg");

instead of specifying the name of the output array as an argument to the subroutine.

(Upd: changed @OUTPUT to @TEST, 'cos that's what I actually meant to type in the first place (to match the name chosen by the OP) )

[jwkrahn]

A more idiomatic way to handle this would be to say:

sub cfgToARRAY {                
    my ( $cfgfile ) = @_ ;
    open my $OUTPUT, '<', $cfgfile) or die "Can't open $cfgfile: $!";
    chomp( my @array = <$OUTPUT> );
    return @array;
}

###

my @OUTPUT = cfgToARRAY( "/informatica/scripts/arrayDisplayCDCWFs.cfg"
+ );