Re^2: how to make variable forget its previous value?

Thanks to all awesome MONKS;

I got it solved :-) Yes one monk (anonymous) suggested ">>The array is never cleared from file to file". This thing worked for me. so my final code is (am not using all suggestions, so following codes work fine)

use warnings;
use strict;

use List::Util qw/ min max sum /;

my $a = -55;
my $b = -54;
my $c = -55;
my $d = -54;
for (1..110) {

    my $file = "x_$a\_to_$b\_y$c\_to_$d";

    open(my INFILE, '<', $file) or die "opening '$file': $!";

    my @column8;  # FRESH, NEW, EMPTY ARRAY for each file!
        ## YES defining here again my @column8 is very good
    while(<INFILE>){
        push @column8, (split(/\s+/, $_))[7];
        }
    $ZMAX = max @column8;
    $ZMIN = min @column8;
    $thick = $ZMAX - $ZMIN;
    print "$thick\n";
    $c++;
    $d++;
    }
[download]

thanks to all other monks also

Comment on Re^2: how to make variable forget its previous value? Download Code

Replies are listed 'Best First'.
Re^3: how to make variable forget its previous value? by AnomalousMonk (Archbishop) on Jan 03, 2012 at 13:39 UTC
`open(my INFILE, ... ... while(<INFILE>){ ...` [download] If using a lexical filehandle, this should be `open(my $INFILE, ...` and `while(<$INFILE>){ ...` (scalar `$INFILE` rather than `INFILE`). Update: Also, I think you still need a test to specially handle the cases of files with zero or one records, e.g., (still untested) `next FILE if @column8 < 2; # are min/max valid?` from my original reply.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: how to make variable forget its previous value?
by AnomalousMonk (Archbishop) on Jan 03, 2012 at 13:39 UTC

open(my INFILE, ... ... while(<INFILE>){ ...
[download]

If using a lexical filehandle, this should be
open(my $INFILE, ...
and
while(<$INFILE>){ ...
(scalar $INFILE rather than INFILE).

Update: Also, I think you still need a test to specially handle the cases of files with zero or one records, e.g., (still untested)
next FILE if @column8 < 2; # are min/max valid?
from my original reply.

[reply]
[d/l]
[select]