#! C:/Perl/bin/perl -w
# Send trackback ping
use strict;
use Encode qw(encode decode);
use utf8;
use Net::TrackBack;
our $VERSION = '0.1';
our $base = 'http://blogger.main.jp/changelog/';
my $pingUrl = shift;
my $data = {
ping_url => 'http://手許のサーバ/tb/example-tbid',
url => $base,
blog_name => 'TerraFirma4th',
title => encode('utf8','WinChalow'),
charset => 'utf-8',
excerpt => encode('utf8','字が化けませんように!'),
};
my $p = new Net::TrackBack;
$p->send_ping($data);
my $msg = ($p->is_success) ? "SUCCESS!\n" . $p->message ."\n"
: "Failure\n";
print $msg;
トラックバック・サーバの画面
書式が気に入らなければソースを自分でいじれ、っていうことのようです。
2004-08 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31