Hi !
ich arbeite auf Win7 mit ActivePerl und habe folgende Aufstellung:
Es soll mit dem aufrufende Batch-File eine Parameter mit Umlaut übergeben werden.
Es kommt aber immer nur
....php?title=L++beck/Spielpl+�tze&action=edit
an.
Soll wäre aber folgende gewesen:
.php?title=Lübeck/Spielplätze&action=edit
In der aufrufenden Batch steht:
Quoteperl split_wiki_table.pl --url=Lübeck/Spielplätze
Der Perl-Source ist:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
use Getopt::Long;
use strict;
use warnings;
use LWP::UserAgent;
use HTML::TreeBuilder;
use Data::Dumper;
use utf8;
use Encode;
use Log::File;
my $go_Help = 0;
my $textbox = '';
my %config=(
wiki_table_url=>'',
textbox=>'',
output=>'',
logstatus=>1,
logfile_name=>'myLogfile.log',
);
my $log=Log::File->open($config{logfile_name});
$log->log($config{logstatus});
binmode(STDOUT,':encoding(UTF-8)');
GetOptions
(
"help!" => \$go_Help,
"textbox=s" => sub{ $config{textbox}='wpTextbox1'; },
"url=s" => \$config{wiki_table_url},
"output=s" => \$config{output},
) or Usage();
Usage() if( $go_Help );
print "URL alt: ".$config{wiki_table_url}."\n";
$config{wiki_table_url}=decode('UTF-8', $config{wiki_table_url});
print "URL: ".$config{wiki_table_url}."\n";
if ($config{wiki_table_url} eq '') {
print "++ keine Tabellen URL angegeben !!! ++\n";
exit ();
}
my $url = "http://wiki.openstreetmap.org/w/index.php?title=".$config{wiki_table_url}."&action=edit";
print "URL fertig: ".$url."\n";
$log->write("URL fertig: ".$url);
$log->write ist ein gleiches log-Tool von mir lokal.
Kann mir einer sagen wie ich das
Ü und
ä hinbekomme.
Gruß Jan :-)
modedit Editiert von pq: code-tags statt quote-tags
Last edited: 2012-09-21 14:42:28 +0200 (CEST)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de