Archive for the ‘Софт’ Category
Вторник, Сентябрь 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, ...
Posted in Белое СЕО, Скрипты, Софт | No Comments »
Суббота, Декабрь 29th, 2007
На днях придумал мини-систему по определению принадлежности тематики одного кейворда к тематике другого кейворда.
Примеры будут такие:
"nokia phones" - "samsung phone" - как просто, неправда ли? :)
"jack nicholson" - "de niro robert" - ммм, так можно и целебсы все зохавать...
"swat weapons" - "army knife"
"lg" - "chocolate phone" - возможны множественные вхождения ...
Posted in Сервисы, Скрипты | No Comments »
Четверг, Декабрь 20th, 2007
Скрипт пингования технорати.
__________________________________
<?php
$blogname = "Архиофигенный блог";
$blogurl = "xttp://blogoff.net/";
# Using the XML-RPC extension to format the XML package
$request = xmlrpc_encode_request("weblogUpdates.ping", array($blogname, $blogurl) );
# Using the cURL extension to send it off,
# first creating a custom header block
$header[] = "Host: rpc.technorati.com";
$header[] = "Content-type: text/xml";
$header[] = "Content-length: ".strlen($request) . "\r\n";
$header[] = $request;
$ch = ...
Posted in Скрипты | No Comments »
Четверг, Декабрь 20th, 2007
Бывают такие ситуации, когда нужно быстренько напарсить контента, а проксей хороших под рукой нету.
Вот, написал небольшую функцию для использования нескольких айпишек для исходящих соединений.
Что делать дальше с контентом - решать Вам. В качестве примера - парсинг сниппетов блогсирча.
$keyword - кейворд в urlencode();
__________________________________
error_reporting(0);
function parsenewsnippets($keyword)
{
$ip[0]='77.77.77.72';
$ip[1]='77.77.77.73';
$ip[2]='77.77.77.74';
$ip[3]='77.77.77.75';
for ($k=0;$k<count($ip);$k++)
{
$sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sourceip = $ip[$k];
socket_bind($sock, ...
Posted in Скрипты | 1 Comment »