サイトマップを作成したい

概要

インプットファイルの文字列をUTF-8に変換し
変換した文字列をURLのパラメータとして付与したサイトマップ作成する

インプットファイル(input.txt)

AAA
BBB

AAA
CCC

ソース

#!/usr/local/bin/perl
use strict;
use URI::Escape;

my $file = "input.txt";

my $count = 0;
open (FH, $file);
	open (DATA, ">>output.txt");
		while (my $line = <FH>){
			$line = trim($line);
			my $encoded = uri_escape $line;

			if (length $encoded < 1){
				$count = 0;
				next;
			}
			if ($count == 0){
				print DATA '<url>'."\n";
				print DATA '<loc>http://XXXXXXX.com?param1';
				print DATA "$encoded";
				$count += 1;
			} else {
				print DATA '&param2=';
				print DATA "$encoded";
				print DATA '</loc>'."\n";
				print DATA '<lastmod>2016-01-01T12:00:00+01:00</lastmod>'."\n";
				print DATA '</url>'."\n";
				$count = 0;
			}
		}
	close (DATA);
close(FH); 

sub trim {
	my $val = shift;
	$val =~ s/^\s*(.*?)\s*$/$1/;
	return $val;
}

アウトプット(output.txt)

<url>
<loc>http://XXXXXXX.com?param1=AAA&param2=BBB</loc>
<lastmod>2016-01-01T12:00:00+01:00</lastmod>
</url>
<url>
<loc>http://XXXXXXX.com?param1=AAA&param2=CCC</loc>
<lastmod>2016-01-01T12:00:00+01:00</lastmod>
</url>

沈黙のWebライティング —Webマーケッター ボーンの激闘—〈SEOのためのライティング教本〉

posted with カエレバ

松尾 茂起 エムディエヌコーポレーション 2016-11-01

Amazonで購入

楽天市場で購入