Постилка в wordpress-движки
Вторник, Сентябрь 2nd, 2008Начало темы: тут На входе подготовленный файл results.parser, в первой строке которого - тема поста, весь остальной текст в одну строку - тело поста. #! /usr/bin/perl use DBI; use IO::Socket::INET; use LWP::UserAgent; use Time::Local; $blog_url = "http://wordpress.com/"; $blog_login = "odmin"; $blog_password = "parol"; open FILE, "results.parser" or die $!; @count=<FILE>; close (FILE); $title = $count[0]; $content = $count[1]; poster($blog_url, $blog_login, $blog_password, $title, $content); sub poster($blog_url, $blog_login, ...