[Perl] Vk bot v 0.2

В эту версию добавлена кроссплатформенность и возможность работы с большими файлами с логинами 100+мб

Старая версия тут

Умеем по прежнему — лайкать, удалять лайк, писать коменты на стену\фото, вступать\покидать в группу, устанавливать статус, добавлять\удалять друзей из списка, опросы не доделаны.

заменяем в коде из поста с v 0.1
system("> ~/.vmd.cookie");
system("sed -i '1d'~/Документы/sim/login");

на


sub ClearCoook
{open(COOK, ">/home/irenica/.vmd.cookie") || die $!;
close COOK;
}
sub Delete1string
{my $counter=0;
my $buf=~ /^*$/;
open(LOGIN, "/home/irenica/Documents/sim/login") || die $!;
open LOGIN," while ()
{$buf.=$_ if $counter++;
}
close LOGIN;
open LOGIN, ">/home/irenica/Documents/sim/login" or die;
print LOGIN $buf;
close LOGIN;
}

Не забудьте заменить на свои пути и вызвать эти фунукции.

Пользователи windows заменяют первую строку на путь к своему интерпритатору.

[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 # Можно и до.
исходник