Help for this page

Select Code to Download

Select or download this

my %line = (
    lineNameA => { 
...
use constant{ X => 0, Y => 1, Z => 2 };

my $y = $line[ $lineNo ][ $staionNo ][ Y ];

Select or download this

my @line = (
    [  ## $line[ 0 ]
...
use constant{ X => 0, Y => 1, Z => 2 };

my $y = $line[ $lineNo ][ $staionNo ][ Y ];