Re: 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");
[download]

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) )

Comment on Re: Symbolic references disallowed Download Code

Replies are listed 'Best First'.
Re^2: Symbolic references disallowed by jwkrahn (Abbot) on Apr 18, 2012 at 19:14 UTC
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" + );` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Symbolic references disallowed
by jwkrahn (Abbot) on Apr 18, 2012 at 19:14 UTC

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"
+ );
[download]

[reply]
[d/l]