perl で Mechanize を使い、wordpress へ記事を投稿するスクリプト

wordpressに対して自動で記事を投稿するスクリプト。perlからMechanizeを使いWEBアクセスをエミュレートして書き込むやり方。何度か実行する機会があったのでここにメモ。

#! /usr/bin/perl

use FindBin qw($Bin);
use WWW::Mechanize;
use utf8;


$URI = 'http://your_wordpress_url/wp-admin/';
$agent = 'WWW::Mechanize'->new();
$agent->get("$URI");

$agent->submit_form(
        form_name => 'loginform',
        fields => {
                log => 'YOUR ID',
                pwd => 'YOUR PASSWORD',
        },
);
eval {
  $URI = $URI."post-new.php";
  $agent->get("$URI");
  $data = $agent->content;
  $agent->submit_form(
        form_name => 'post',
        fields => {
          'post_title' => 'post title',
          'content'    => 'post contents',
        },
        button => 'publish'
  );
};
if ($@) {
  print "err\n";
  exit 1;
};

exit 0;

#! /usr/bin/perl

use FindBin qw($Bin);

use WWW::Mechanize;

use utf8;

$URI = 'http://your_wordpress_url/wp-admin/';

$agent = 'WWW::Mechanize'->new();

$agent->get("$URI");

$agent->submit_form(

form_name => 'loginform',

fields => {

log => 'YOUR ID',

pwd => 'YOUR PASSWORD',

);

eval {

$URI = $URI."post-new.php";

$agent->get("$URI");

$data = $agent->content;

$agent->submit_form(

form_name => 'post',

fields => {

'post_title' => 'post title',

'content' => 'post contents',

button => 'publish'

);

};

if ($@) {

print "err\n";

exit 1;

};

exit 0;

Script sample to posting to wordpress by perl and mechanize.

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル