Automático de llenado de contenido WordPress
19 de febrero 2010 | Autor: dimio Lo prometido es deuda, publicar la secuencia de comandos para crear el contenido de un blog en wordpress (sobre cómo llenar los blogs sobre el contenido de wordpress que escribí en una nota de forma automática agregar contenido a WordPress-blogs ).
Ir de nuevo "como es" - que trabajan allí, pero no se garantiza ostalnoe 
Por cierto, sobre la base de este guión nació de un programa gratuito para la creación de importados en el archivo XML de WordPress - WordPress XML Creador .
! # / Usr / bin / perl-w # (c) dimio http://www.dimio.org # use strict; use DBI; # morir "NO SE OLVIDE DE ARCHIVO DE ENTRADA Convertir a unicode NE Zabud SKONVERTIROVAT VHODNOY ARCHIVO UTF V! "; my $ game_descr_file = 'game_descr.txt"; my $ tipo_bd =' SQLite '; my $ db_name =' .. / sqlite_db / gb_blogs.sqlite "; my $ db_login =''; my $ contraseña_bd =''; mi $ dbh = db_connect ($ tipo_bd, $ nombre_bd, $ db_login, $ contraseña_bd); database_filling ($ game_descr_file, $ dbh); $ dbh-> Desconectar; exit 0; database_filling sub {# Analizar el archivo de origen con las descripciones de juegos, títulos y etiquetas para ellos. # Cada entrada se divide en, y actualizar la tabla correspondiente en la base de datos. my ($ infile, $ dbh) = @ _; my ($ GameID, PostHeader $, $ PostBody, PostTags $, $ archivo, $ BlogID), abierto (IN_FILE, '<', $ INFILE) or die "No se puede abrir el archivo $ INFILE ". $, "\ N";! {Local $ / = "\ n \ n"; # localmente dentro de un bloque de {}, cambiando el signo de la final de la cadena de entrada, como un texto en el archivo están separados por una línea en blanco. mientras que (<IN_FILE>) {+ + $ BlogID; chomp; s / ^ \ s + / /, s / \ s + $ / / if (m! <game_id> (\ d +) </ game_id> \ n <header> (. +) </ header> \ n <body> (. +) </ body> \ n <tags> (. +) </ tags>! xsi) {($ GameID, PostHeader $, $ PostBody, $ PostTags ) = ($ 1, $ 2, $ 3, $ 4); # print "GID: $ GameID \ nBLOG: $ BlogID \ nHEAD: $ PostHeader \ nBODY: $ PostBody \ nTAGS: $ PostTags \ n"; put_to_db ($ dbh, $ GameID , PostTags dólares PostHeader, $ PostBody, $, $ BlogID); # poner los datos en la base de datos} else {die "Compruebe el formato de archivo de entrada (al final de la línea (debe ser \ \ n - unix) o codificación (debe ser UTF-! 8) \ n ";}}} close (IN_FILE);} db_connect sub {my ($ tipo_bd, $ nombre_bd, $ db_login, contraseña_bd $) = @ _; my $ dbh = DBI-> connect (" DBI: $ tipo_bd : $ db_name "," $ db_login "," $ contraseña_bd ", # {Unicode => 1}) or die" Conexión: $ DBI :: errstr \ n "; # conectarse a la base de datos SQL (base de datos se abre un mango) $ dbh- > {Unicode} = 1 si 'SQLite' $ tipo_bd eq;} return $ dbh put_to_db sub {my ($ dbh, $ GameID, PostHeader $, $ PostBody, PostTags $, $ BlogID) = @ _; # my $ db_data = $ dbh-> do ("INSERT INTO BlogsMainData (BlogID) VALORES $ BlogID;"); my $ query = "UPDATE SET BlogsContent PostHeader = '$ PostHeader', PostBody = '$ PostBody', PostTags = '$ PostTags' WHERE GameID = $ GameID Y BlogID = $ BlogID Y PostHeader IS NULL; "; my $ db_data = $ dbh-> do ($ query); $ query> 0 de impresión?" $ GameID añadido \ n ": print" no $ GameID añadido \ n ";}
Más sobre temas similares:
Filed under: SEO , blogs , gadgets , Codificación | 
Tags: perl , WordPress , Blog , programación , vía satélite | 
5 comentarios 
Si has hecho todo este plugin para WP, el precio habría sido!
¡Oh, por qué. Y por lo que lleva a cabo sus funciones.
Puede llevar a cabo, pero para insertar en tu blog este código, no sé donde .. un blog en wordpress
Este es un script totalmente independiente, pegarlo en tu blog no es necesario. Él funciona como cualquier otro script de perl.
¡Gracias! Ahora entendía.