Automatische Befüllung WordPress Inhalt
19. Februar 2010 | Autor: dimio Wie versprochen ist, machte ich ein Skript für die Erstellung von Inhalten für einen Blog auf Wordpress (wie man Blogs auf WordPress Inhalte, die ich in einer Notiz schrieb füllen zum Inhalt automatisch in WordPress-Blogs ).
Go On Again "as is" - dort arbeiten, aber nicht garantiert ostalnoe 
- By the way, war auf der Grundlage des Drehbuchs und ein kostenloses Programm zum Erstellen der Einfuhr in die WordPress XML-Datei geboren WordPress XML Creator .
! # / Usr / bin / perl-w # (c) dimio # http://www.dimio.org use strict; use DBI; # sterben "werden nicht vergessen, Convert Eingabedatei Unicode NE Sabud SKONVERTIROVAT VHODNOY FILE V UTF! "; my $ game_descr_file = 'game_descr.txt'; my $ db_type = 'SQLite'; my $ db_name = '.. / sqlite_db / gb_blogs.sqlite'; my $ db_login =''; my $ datenbankkennwort =''; meine $ dbh = db_connect ($ db_type, $ db_name, $ db_login, $ datenbankkennwort); database_filling ($ game_descr_file, $ dbh); $ dbh-> disconnect; exit 0; sub database_filling {# Parse die Quelldatei mit Beschreibungen von Spielen, Titel und Tags für sie. # Jeder Eintrag ist aufgeteilt in und aktualisiert die entsprechende Tabelle in der Datenbank. my ($ infile, $ dbh) = @ _; my ($ GameID, $ PostHeader, $ PostBody, $ PostTags, $ file, $ blogid); open (in_file, '<', $ infile) or die "Kann nicht open file $ infile: ". $, "\ N";! {Local $ / = "\ n \ n"; # lokal innerhalb eines Blocks von {}, indem Sie die Zeichen des Endes der eingegebenen Zeichenfolge als einzelnen Texte in der Datei werden durch eine Leerzeile getrennt. while (<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 , $ PostHeader, $ PostBody, $ PostTags, $ blogid);! # put die Daten in die Datenbank} else {die "Check Input-Datei-Format (end of line (muss \ \ n - unix) oder Kodierung (muss UTF-werden 8) \ n ";}}} close (in_file);} sub db_connect {my ($ db_type, $ db_name, $ db_login, $ datenbankkennwort) = @ _; my $ dbh = DBI-> connect ("DBI: $ db_type : $ db_name "," $ db_login "," $ datenbankkennwort ", # {Unicode => 1}) or die" Verbindung: $ DBI:: errstr \ n "; # um die Datenbank SQL (öffnet eine Datenbank handle) verbinden $ dbh- > {unicode} = 1 if $ db_type eq 'SQLite'; return $ dbh} sub put_to_db {my ($ dbh, $ GameID, $ PostHeader, $ PostBody, $ PostTags, $ blogid) = @ _; # my $ db_data = $ dbh-> do ("INSERT INTO BlogsMainData (blogid) VALUES $ blogid;"); my $ query = "UPDATE BlogsContent PostHeader = '$ PostHeader', PostBody = '$ PostBody', PostTags = '$ PostTags' SET WHERE GameID = $ GameID UND blogid = $ blogid UND PostHeader IS NULL; "my $ db_data = $ dbh-> do ($ query); $ query> 0 gedruckt werden?" $ GameID hinzugefügt \ n ": print" $ GameID nicht hinzugefügt \ n ";}
Mehr zu ähnlichen Themen:
Filed under: SEO , Blogging , Gadgets , Coding | 
Tags: perl , WordPress , Blog , Programmierung , Satellit | 
5 Kommentare 
Wenn Sie all dies Plugin für wp hat, dann würden die Preise gewesen sein!
Oh, warum. Und weil ihre Funktionen werden durchgeführt.
Kann und wird, sondern in Ihren Blog einfügen, diesen Code, weiß ich nicht wo .. ein Blog auf Wordpress
Dies ist ein völlig separates Skript, fügen Sie ihn in Ihrem Blog ist nicht erforderlich. Es läuft wie jede andere Perl-Skript.
Thank you! Jetzt verstand er.