- $longd += ($longm/60);
- $longd = 0-$longd if (uc $longl) eq 'W';
- $latd += ($latm/60);
- $latd = 0-$latd if (uc $latl) eq 'S';
- print OUT " name => '$name',";
- print OUT " dxcc => $dxcc,";
- print OUT " itu => $itu,";
- print OUT " cq => $cq,";
- print OUT " utcoff => $utcoff,";
- print OUT " lat => $latd,";
- print OUT " long => $longd";
- print OUT " }, 'Prefix'),\n";
+ $longd += ($longm/60);
+ $longd = 0-$longd if (uc $longl) eq 'W';
+ $latd += ($latm/60);
+ $latd = 0-$latd if (uc $latl) eq 'S';
+ print OUT " name => '$name',";
+ print OUT " dxcc => $dxcc,";
+ print OUT " itu => $itu,";
+ print OUT " cq => $cq,";
+ print OUT " utcoff => $utcoff,";
+ print OUT " lat => $latd,";
+ print OUT " long => $longd";
+ print OUT " }, 'Prefix'),\n";