Аутоматско пуњење УордПресс садржај
19. фебруар 2010 | Аутор: димио Као што је обећано, ја ширење сценарио за стварање садржаја за блог на УордПресс (о томе како да попуни блогове на ВордПресс садржаја сам написао у напомени да додате садржај аутоматски у УордПресс-блоговима ).
Иди поново "као што јесте" - који тамо раде, али не и гарантовано осталное 
Узгред, на основу писма и рођен је бесплатан програм за креирање увози у УордПресс КСМЛ фајл - КСМЛ ВордПресс Творца .
# / Уср / бин / перл-в # (ц) димио # хттп://ввв.димио.орг усе стрицт; користе ДБИ; # умре "неће заборавити Конвертујте фајл улаза у Уникод СИ Забуд СКОНВЕРТИРОВАТ ВХОДНОИ СЛИКА В утф! "; моја $ гаме_десцр_филе = 'гаме_десцр.ткт', мој $ дб_типе = 'СКЛите', мој $ дб_наме = '.. / склите_дб / гб_блогс.склите', мој $ дб_логин =''; моја $ дб_пассворд =''; мој $ дбх = дб_цоннецт ($ дб_типе, $ дб_наме, $ дб_логин, $ дб_пассворд) датабасе_филлинг ($ гаме_десцр_филе, $ дбх); $ дбх-> Раскини везу; излазак 0 под датабасе_филлинг {# анализи изворни фајл са описима игара, наслова и ознака за њих. # Сваки унос је подељен на, и ажурира одговарајуће табелу у бази података. мој ($ инфиле, $ дбх) = @ _, мој ($ ГамеИД, $ ПостХеадер, $ ПостБоди, $ ПостТагс, $ фајл, $ БлогИД) се отварају (ИН_ФИЛЕ, '<', $ инфиле) ор дие "Не могу да отворени фајл $ инфиле: ". $, "\ Н";! {Локалних $ / = "\ н \ н"; # локално у оквиру блок {} променом знак краја улазних стринг као појединим текстовима у датотеци су раздвојени празан ред. док (<ИН_ФИЛЕ>) {+ $ БлогИД; Цхомп; с / ^ \ с + / /; с / \ с +$//; ако (м! <гаме_ид> (\ д +) </ гаме_ид> \ н <хеадер> (.+)</ заглавље> \ н <боди> (.+)</ тело> \ н <тагс> (.+)</ Тагс> КССи) {($ ГамеИД, $ ПостХеадер, $ ПостБоди, $ ПостТагс ) = ($ 1, $ 2, $ 3, $ 4); # принт "ГИД $ ГамеИД \ нБЛОГ: $ БлогИД \ нХЕАД: $ ПостХеадер \ нБОДИ: $ ПостБоди \ нТАГС: $ ПостТагс \ н"; пут_то_дб ($ дбх, $ ГамеИД , $ ПостХеадер, $ ПостБоди, $ ПостТагс, $ БлогИД); # стави података у базу} елсе {умрети "Проверите формату улазни фајл (крај линије (мора бити \ \ н - Уник) или кодирање (мора бити УТФ- 8) \ н ";}}} близу (ИН_ФИЛЕ);} под дб_цоннецт {ми ($ дб_типе, $ дб_наме, $ дб_логин, $ дб_пассворд) = @ _, мој $ дбх = ДБИ-> повезивање ("ДБИ: $ дб_типе : $ дб_наме "," $ дб_логин "," $ дб_пассворд ", # {Уникод => 1}) или умри" Повезивање: $ ДБИ:: еррстр \ н "; # повезивање са базом података СКЛ (отвара базу података ручка) $ дбх- > {Уницоде} = 1 ако је $ дб_типе ЕК 'СКЛите'; врати $ дбх} под пут_то_дб {ми ($ дбх, $ ГамеИД, $ ПостХеадер, $ ПостБоди, $ ПостТагс, $ БлогИД) = @ _; # моју $ дб_дата = $ дбх-> уради ("ИНСЕРТ ИНТО БлогсМаинДата (БлогИД) ВАЛУЕС $ БлогИД;"), мој $ куери = "УПДАТЕ СЕТ БлогсЦонтент ПостХеадер = '$ ПостХеадер', ПостБоди = '$ ПостБоди', ПостТагс = '$ ПостТагс" ГДЕ ГамеИД = $ ГамеИД И БлогИД = $ БлогИД И ПостХеадер ИС НУЛЛ; ", мој $ дб_дата = $ дбх-> не ($ куери); $ куери> 0 штампају?" $ ГамеИД додао \ н ": ецхо" $ ГамеИД није додао \ н ";}
Више о сличним темама:
Филед ундер: СЕО , Блоговање , гаџети , кодирање | 
Тагс: перл , УордПресс , блог , програмирање , сателитски | 
5 коментара 
Ако сте све ово плугин за ВП, онда цене би био!
Ох, зашто. И зато што њихове функције се спроводе.
Може и ради, али да убаците у свој блог, овај код не знам где .. блог на УордПресс
Ово је потпуно одвојен сценарио, налепите га на свој блог није потребно. Он ради као и сваки други перл скрипт.
Хвала! Сада је он разумео.