hi monks,
i'm working on a problem involving using the gps data to figure out the direction of each link (i.e. northwest, south east...). i wrote a code as below, but it keeps giving me error, about "global symbol $A requires explicit package name...." anyone can help ?
#!/usr/bin/perl use strict; use warnings; # 1)input file my $file = "c:/documents and settings/desktop/dirTable.csv"; open (TEMP, $file) or die("Error: cannot open $file\n"); # 2)output file my $outfile = "c:/documents and settings/desktop/dirMatched.csv"; open (OUTPUT,">$outfile") or die("Error: cannot open $outfile\n"); #Private variables my $nline = "\n"; my $comma = ","; my @direction = ["east","west","north","south"]; #Main body while (my $line = <TEMP>) { my @column = split (/,/,$line); if ($column[4] < $column[7]) { my $A = $direction[0]; }else {$A = $direction[1]; } if ($column[5] < $column[8]) { my $B = $direction[2]; }else {$B = $direction[3]; } $dir = $A.$B; print OUTPUT $column[4],$comma,$column[5],$comma,$column[7],$comm +a,$column[8],$comma,$A,$comma,$B,$comma,$nline; }
$column4,7 are the x coordinates. $column5,7 are the y coordinates.
thanks a lot,
In reply to Use perl to do direction matching by hujunsimon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |