[Pdx-pm] array question

aspen 108 aspen_108 at hotmail.com
Mon Apr 21 15:23:04 CDT 2003


Hi Ovid-

Thanks for the note.  I will give your snippet a try.

Here're some parts of the code where I'm running into the problem.  Be 
forewarned, I'm kind of a perl newbie...

Here's the part where I'm reading the data into these arrays:

    if ($get_temp == 1 && $inp_line !~ /Temperature/) {
        @temp_array = split ' ', $inp_line;
        for $temp_data (@temp_array) {
            $temp[$seg][$lay] = $temp_data;
            printf "%s%10.1f%10.1f%8.2f%8.2f%8.1f\n", $reg_date, $seg, $lay, 
$temp[$seg][$lay], $tot_seg, $#{$temp[$seg]};
            $lay++;
        }
    }

Here's one example of how I'm trying to clear the array:

        for ($seg = $#temp; $seg > 0; $seg--) {
            for ($lay = $#{$temp[$seg]}; $lay > 0; $lay--) {
                undef $temp[$seg][$lay];
            }
        }

That print statement with the $#{$temp[$seg]} lets me look at the index as 
it runs, and the array indices are not being cleared with the undef.  I gave 
your one suggestion "@some_array = ();" a quick try, but that didn't clear 
the indices either... not sure if there's a different syntax for a 2-d array 
though.

Thank you for your help,

Annett :)


_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE*  
http://join.msn.com/?page=features/junkmail




More information about the Pdx-pm-list mailing list