Как узнать количество lik'ов во ВКонтакте

Чтобы узнать, сколько раз пользователи на странице нажали "like", надо использовать метод like.getList: http://vkontakte.ru/developers.php?oid=-1&p=likes.getList. Пример кода на javascript:

        VK.init({apiId:"...", onlyWidgets: false});
	VK.Api.call('likes.getList', {type: "sitepage", owner_id: "...[apiId]",page_url:pageuri},        
           function(r) {
             if(r.response && r.response.count) {
	       $.getJSON('...?rating=vk&ratingvalue=' + r.response.count);
             }
           });

Комментарии: 1

Удобный multiselect для jquery

На сайте http://www.erichynds.com/jquery/jquery-ui-multiselect-widget/ выложен плагин для jquery, который красиво и удобно оформляет select'ы. Еще умеет применять темы jqueryui. Например такой код:

<select id="idSubject" name="idSubject"  class="multiselect" multiple="multiple" required>
<option value="1">Репетитор английского
<option value="12">Репетитор математики
<option value="19">Репетитор русского языка
...

Оформляет таким образом:

Картинка с сайта http://uralteacher.ru/.

Комментарии: 0

Как узнать количество like и share в социальных сетях

В посте приведены куски кода, позволяющие узнать количество лайков в facebook'e и вконтакте, количество твитов и нажатий кнопки google +1.

читать дальше Комментарии: 3

Полезный код на perl'e для работы с деревом файлов

Полезный код из книжки Mark Jason Dominius "Higher-Order Perl. Transforming Programs with Programs" для работы с папками и файлами. Функция dir_walk обходит все файлы и вложенные папки и вызывает для каждого из них функцию переданную в параметре:

sub dir_walk {
  my ($top, $filefunc, $dirfunc) = @_;
  my $DIR;

  if (-d $top) {
    my $file;
    unless (opendir $DIR, $top) {
      warn "Couldn't open directory top: $!; skipping.\n";
      return;
    }

    my @results;
    while ($file = readdir $DIR) {
      next if $file eq '.' || $file eq '..';
      push @results, dir_walk("$top/$file", $filefunc, $dirfunc);
    }
    return $dirfunc ? $dirfunc->($top, @results) : () ;
  } else {
    return $filefunc ? $filefunc->($top): () ;
  }
}

Примеры (тоже из книжки). Печать файлов и папок:

  dir_walk('.', sub{ print $_[0], "\n"}, sub{ print $_[0], "\n"})

Размер файлов и папок:

  sub file_size{
    -s $_[0]
  }
  sub dir_size{
    my $dir = shift;
    my $total = -s $dir;
    my $n;
    for $n (@_) {$total += $n}
    return $total;
  }
  my $total=dir_walk('.', \&file_size, \&dir_size);

Комментарии: 3

Авторизация OAuth 2.0 ВКонтакте на perl VKontakte::API::OAuth

ВКонтакте появилась авторизация на базе OAuth 2.0: подробности тут.

Старые методы тоже пока работают. Работа с серверными методами по-старому реализована в модуле VKontakte::API, через oauth в новом модуле VKontakte::API::OAuth. Интерфейс у них одинаковый, работают оба (пока?).

        use VKontakte::API::OAuth; # было VKontakte::API
        $vk = VKontakte::API::OAuth->new(
                $api_id,
                $secret
        );
        my $data=$vk->sendRequest('getProfiles', {'domains'=>'deevaas'});

Скачать на CPAN.

Комментарии: 1