Shell Programming and Scripting

Useless use of a variable in void context at ORIGINAL.pl line 7.
Useless use of a variable in void context at ORIGINAL.pl line 7.
Useless use of a variable in void context at ORIGINAL.pl line 8.
Useless use of a variable in void context at ORIGINAL.pl line 8.
readline() on closed filehandle COORD at ORIGINAL.pl line 10.
Use of uninitialized value $near_dist in concatenation (.) or string at ORIGINAL.pl line 32.
Nearest node:
Distance:
wyncc 68:

#! /usr/bin/perl
use warnings;

(@ARGV != 3) && die "Enter co-ordinates. Exiting ";

($x, $y, $z) = @ARGV;
(@nos, @near_node);
($dist, $near_dist);
open (COORD, "</projects/student2/Derek_VanDommelen/Projects/test.txt") && die "Cannot open file!";
while (<COORD>) {
    chomp;
    if (/^\*NODE/ .. /^\*\*/) {
        if (/^\*NODE/) { next }
        if (/^\*\*/)   { last }

        @nos = split /\s+/;
        @nos = map { s/[.,]+$//; $_ } @nos;
        $dist = sqrt ((($x - $nos[2]) ** 2) + (($y - $nos[3]) ** 2) + (($z - $nos[4]) ** 2));

       
        if (!defined($near_dist)) {
            $near_dist = $dist;
            @near_node = @nos;  
        }
        elsif ($dist <= $near_dist) {
            $near_dist = $dist;
            @near_node = @nos;
        }
    }
}
close (COORD);
print "Nearest node: @near_node\nDistance: $near_dist\n";

wyncc Projects/Node_Position&Distance> perl BETA_Node_Coordinate.pl
Enter data file path:
projects/GM.inp
Enter X Coordinate:
2596
Enter Y Coordinate:
-5.08
Enter Z Coordinate:
793.87
readline() on closed filehandle COORD at BETA_Node_Coordinate.pl line 35.
Use of uninitialized value $near_dist in concatenation (.) or string at BETA_Node_Coordinate.pl line 62.
Nearest node:
Distance:
wyncc Projects/Node_Position&Distance>

while (<COORD>) {

open (FILE, "</filename");