Script um PQ nach Cachetyp aufteilen

#!/usr/bin/perl

# todo: Cachetypen wählen oder ausschließen

use strict ;
use warnings ;
use v5.10 ;

sub gettag {
    my ( $line, $sp ) = @_ ;
    for ( $line ) { 
        s/\s+<$sp>//g ;  
        s/<\/$sp>// ;  
        s/\r//g ;
        s/\n//g ;
    }
    return $line ;
}

sub escape {
    my $line = shift ;
    $$line =~ s/#/\\#/g ;
    $$line =~ s/&/\\&/g ;
    $$line =~ s/\[/(/g ;
    $$line =~ s/\]/)/g ;
    $$line =~ s/"(\w)/\\glqq\ $1/g ;
    $$line =~ s/(\w)"/$1\\grqq/g ;
}

my ( $ref_n, $ref_e ) ;
sub distance {
    my ( $north, $east ) = @_ ;
    my $ndist = ( $north - $ref_n ) * 111 ;
    my $edist = ( $east - $ref_e ) * 71.5 ; # gilt für den 51. Breitengrad
    my $dist = sqrt( $ndist**2 + $edist**2 ) ;
    say $dist ;
    return $dist ;
}

my $pquery = $ARGV[0] ;
#my $maxdist = $ARGV[1] ;
#my $refcache = $ARGV[2] ;
my $line ;
my @caches ;
my %cache ;
my @latlon ;

open PQUERY, $pquery or die "geht nicht $!" ;

foreach $line ( <PQUERY> ) {
    utf8::decode $line ;
    last if $line =~ m/<\/gpx/ ;
    if ( $line =~ m/<wpt / ) {
        @latlon  = split /"/,$line ; 
        $cache{ north } = $latlon[1] ; 
        $cache{ east } = $latlon[3] ; 
    }
    #######################
    elsif ( $line =~ /<name>GC/ && !exists $cache{ gcname } ) {
        $cache{ gcname } = gettag( $line, "name" ) ; 
    }
    elsif ( $line =~ /groundspeak:name/ && !exists $cache{ cachename } ) {
        $cache{ cachename } = gettag( $line, "groundspeak:name" ) ; 
    }
    elsif ( $line =~ /groundspeak:container/ && !exists $cache{ container } ) {
        $cache{ container } = gettag( $line, "groundspeak:container" ) ; 
    }
    elsif ( $line =~ /<groundspeak:type>/ && !exists $cache{ type } ) { 
        $line =~ s/Traditional Cache/Tradi/i ;
        $line =~ s/Multi-Cache/Multi/i ;
        $line =~ s/Unknown Cache/Mystery/i ;
        $cache{ type } = gettag( $line, "groundspeak:type" ) ; 
    } 
    elsif ( $line =~ /<groundspeak:difficulty>/ && !exists $cache{ difficulty } ) {
        $cache{ difficulty } = gettag( $line, "groundspeak:difficulty" ) ; 
    }
    elsif ( $line =~ /<groundspeak:terrain>/ && !exists $cache{ terrain } ) {
        $cache{ terrain } = gettag( $line, "groundspeak:terrain" ) ; 
    }
    elsif ( $line =~ /encoded_hints/ && !exists $cache{ hint } ) {
        $cache{ hint } = gettag( $line, "groundspeak:encoded_hints" ) ; 
        #last ;
    }
    ######################################
    elsif ( $line =~ m/<\/wpt/ ) {
        #if ( $cache{ 'gcname' } eq $refcache ) {
        #    $ref_n = $cache{ 'north' } ;
        #    $ref_e = $cache{ 'east' } ;
        #}
        my %newcache = %cache ;
        push @caches, \%newcache ;
    %cache = () ;
    }
}
close PQUERY ;

#my $cache ;
#my $key ;
#foreach $cache ( @caches ) {
#    foreach ( %$cache ) {
#        say $_ ;
#    }
#}

# Dateiname der LaTeX-Datei
my ($sek,$min,$std,$mtag,$mon,$jahr,$wtag,$jtag,$isdst) = localtime(time);
my $year = $jahr+1900 ;
my $month = qw(jan feb mrz apr mai jun jul aug sep okt nov dez)[$mon] ;
my $wday = qw(so mo di mi do fr sa)[$wtag] ;
my $filename = "pq." . $wday . '_' . $year . '_' . $month . '_' . $mtag . ".tex" ;

# LaTeX-Präambel
my $latexheader = <<HEADER;
\\documentclass[10pt]{scrartcl}
\\usepackage[ngerman]{babel}
\\usepackage{libertine}
\\usepackage[T1]{fontenc}
\\usepackage[latin1]{inputenc}
\\usepackage{mathpazo,avant,courier}
\\usepackage[inner=1.5cm,outer=1.5cm,top=0.5cm,bottom=0.5cm,includeheadfoot]{geometry}
\\usepackage{fancyhdr,lastpage}
\\pagestyle{fancy}
\\fancyhf{}
\\fancyhead[L]{Seite \\thepage von \\pageref{LastPage}}
\\fancyfoot[L]{Seite \\thepage von \\pageref{LastPage}}
\\parindent0pt
\\begin{document}
\\normalfont\\sf 
HEADER

my $latexfoot = "\\end{document}" ;

open CACHEFILE, ">$filename" or die "geht nicht $!" ;

print CACHEFILE $latexheader ;

my $cache ;
foreach $cache ( @caches ) {
    # next if distance( $$cache{ 'north' }, $$cache{ 'east' } ) > $maxdist ;
    my $line = "$$cache{ 'gcname' }  \\textbf\{$$cache{ 'cachename' }\}" ;
    escape \$line ;
    print CACHEFILE $line, "\\nopagebreak \\\\\n" ;
    my $type = "$$cache{ 'type' } -- $$cache{ 'container' } -- $$cache{ 'difficulty' }/$$cache{ 'terrain' }" ;
    printf CACHEFILE "\\textbf{N %d\260 %.3f'  E %d\260 %.3f'} -- $type \\nopagebreak \\\\\n", int($$cache{'north'}), ($$cache{'north'}-int($$cache{'north'}))*60, int($$cache{'east'}), ($$cache{'east'}-int($$cache{'east'}))*60 ;
    if ( $$cache{ hint } ) {
        $line = $$cache{ hint } ;
        escape \$line ;
        print CACHEFILE $line, "\\\\\n" ;
    }
    print CACHEFILE "\\\\\n" ;
}

print CACHEFILE $latexfoot ;

close CACHEFILE ;