cup.perl - diff

Return to cup.perl CVS log

Up to [Omarama Landouts]

version 1.1, 2013/11/16 21:15:36	version 1.2, 2013/11/17 20:18:17
Line 18 print CUP "name,code,country,lat,lon,ele	Line 18 print CUP "name,code,country,lat,lon,ele
my %strips;	my %strips;

foreach my $stripnum ( keys %{$strips->{strip}} ){	foreach my $stripnum ( keys %{$strips->{strip}} ){
print CUP $strips->{strip}->{$stripnum}->{name} . ",";	print CUP qq["$strips->{strip}->{$stripnum}->{name}",];
print CUP $stripnum . ",NZ,";	print CUP qq["$stripnum",NZ,];
$strips->{strip}->{$stripnum}->{lat} =~ s/://;	$strips->{strip}->{$stripnum}->{lat} =~ s/://;
print CUP $strips->{strip}->{$stripnum}->{lat} . ",";	print CUP $strips->{strip}->{$stripnum}->{lat} . ",";
$strips->{strip}->{$stripnum}->{lng} =~ s/://;	$strips->{strip}->{$stripnum}->{lng} =~ s/://;
print CUP $strips->{strip}->{$stripnum}->{lng} . ",";	print CUP $strips->{strip}->{$stripnum}->{lng} . ",";
print CUP $strips->{strip}->{$stripnum}->{elev} . "f,1,,,,";	print CUP $strips->{strip}->{$stripnum}->{elev} . "f,3,,,,";
if ( defined $strips->{strip}->{$stripnum}->{location} ) {	if ( defined $strips->{strip}->{$stripnum}->{location} ) {
print CUP qq{"$strips->{strip}->{$stripnum}->{location}"};	print CUP qq{"$strips->{strip}->{$stripnum}->{location}"};
}	}