[Perl] Vk bot v0.1

Не дописан. У Perl почти на все есть модуль и вк не исключение ( модуль ). Да, можно было сделать и без модуля, но лень. Костылей много. К примеру, access_token изменяется только с каждым новым запуском, потому стартуем так — while(1) do <путь к скрипту>; done
Ну или такой костыль, если его исправить, будет кроссплатформенно
system(":> ~/.vmd.cookie");
system("sed -i '1d'~/Документы/sim/login");

Очищаем печеньки и удаляем первую строку из списка с аккаунтами.
До передаваемых параметров не дошла.
Типы возвращаемых данных или xml или json. Читать документацию к ним не было нималейшего желания, потому костыли на регвырах.
Собственно, что умеем —
лайкать, удалять лайк, писать коменты на стену\фото, вступать\покидать в группу, устанавливать статус, добавлять\удалять друзей из списка, опросы не доделаны.

Чтобы вызвать каку-либо функцию, ее надо вызвать из кода после
print $vk->uid,"\n"; #print id user # Можно и до.
исходник

Leave your comment