1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use utf8;
use Image::Magick;
# main-parameeters
my %config=(
programmname=>'osmMaperativeWanderbuch', # Name der Funktion
logfile_name=>'mylogfile.txt', # Protokolldatei
sandwich=>0,
.....
north_margin_horizontal_mm=>5, # Abstand des norths vom Rand (horizotal)
);
GetOptions
(
"help|h" => sub{ Usage(); },
"debug" => sub{ $config{debug}=1; },
"data=s" => \$config{data},
"job=s" => \$config{job},
"title=s" => \$config{title},
"sandwich=s" => sub{ $config{sandwich}=1; },
"poffset=s" => \$config{page_offset},
"pprefix=s" => \$config{page_prefix},
"psuffix=s" => \$config{page_suffix},
"overlay" => sub{ $config{flag_create_overlay}=1; },
"gray" => sub{ $config{flag_convert_gray}=1; },
) or Usage();
Quoteperl osmMaperativeWanderbuch.pl --mrules="jw_dith_dina5.mrules" --data="jw_dithmarschen" --osm="jw_dithmarschen.osm" --title_txt="Dithmarscher Jakobsweg" --logo="jakob.png" --overlay --sandwich
QuoteZ:\osmMaperativeWanderbuch\ToolVerzeichnis>echo off
Prototype mismatch: sub Log::File::ctime (;$) vs none at C:/Perl/lib/Log/File.pm line 157.
Subroutine ctime redefined at C:/Perl/lib/Log/File.pm line 155.
Option sandwich requires an argument
****** error in program start ******
-help this help
-title header in the walkingpapers
-sandwich compres all images in final process
"sandwich=s"