15 lines
562 B
Perl
15 lines
562 B
Perl
# The source file contains non-ASCII characters, supposed to be saved
|
|
# in UTF-8 encoding. Tell Perl about that, just in case.
|
|
use utf8;
|
|
|
|
# Following code is the example from the report Bug#22355 which needed
|
|
# attention in perl-mode.
|
|
|
|
printf qq
|
|
{<?xml version="1.0" encoding="UTF-8"?>
|
|
<kml xmlns="http://www.opengis.net/kml/2.2">
|
|
<Document>
|
|
<Folder><name>台灣 %s 廣播電台</name>
|
|
<description><![CDATA[http://radioscanningtw.wikia.com/wiki/台描:地圖 %d-%02d-%02d]]></description>
|
|
}, uc( substr( $ARGV[0], 0, 2 ) ), $year + 1900, $mon + 1, $mday;
|