Собственно, уже не мудрствуя лукаво — кто хоть немного знает перл — разберётся.
Вконтакте добавили редиректики, что не помешает доблестному Curl через них пройти и получить куку в файл.
#!/usr/bin/perl -w
use strict;
use WWW::Curl::Easy;
use Carp;
Таскаю за собой по всем модулям и скриптам.
sub getURL {
my $params = shift;croak q[HASH needed as param] if ref ($params) ne 'HASH';
croak q[HREF needed in HASH] if (!exists ($params->{href}));
$params->{href} = q[http://].$params->{href} if $params->{href} !~ /^http (s)?:\/\//;
$params->{headers} = 0 if !$params->{headers};
$params->{ag} = qq ($user_agents[rand(($#user_agents+1))]) if !exists $params->{ag};
$params->{timeout} = 20 if !exists $params->{timeout};
$params->{content_length} = 600000000 if !exists $params->{content_length};
Навеяно SE и паранойей тамошнего ТС к ддос через F5 :DDD
<script type="text/javascript">
document.onkeydown = KeyCheck;
function KeyCheck(e) {
var KeyID = (window.event) ? event.keyCode : e.keyCode;
if(KeyID == 116){
return false;
}
}
</script>
Этот вопрос мучает людей веками.
Ответ на вопрос «Чем отличается PHP от FTP» прост. Но его никто не знает.
Задача: массово переконвертить файлы с расширением .php из Windows-1251 в UTF-8.
Итоговое решение:
for a in `find /files_folder -type f -name "*.php"`; do iconv -f Windows-1251 -t UTF8 $a > /tmp/cp.file; cat /tmp/cp.file > $a; done; rm -rf /tmp/cp.file
Читать пост целиком »
Скорее для себя, чтобы не забыть
$ cd /path/to/dev/folder/
$ h2xs -b 5.8.8 -AX Foo::Bar -v 1.00
Writing Foo-Bar/lib/Foo/Bar.pm
Writing Foo-Bar/Makefile.PL
Writing Foo-Bar/README
Writing Foo-Bar/t/Foo-Bar.t
Writing Foo-Bar/Changes
Writing Foo-Bar/MANIFEST
Читать пост целиком »
В этом нет ничего сложного — правда! Фактически — написать свой почтовик — проще простого. Так же просто как и читать почту через консоль.
Далее — две маленькие статьи на живых примерах — как пользоваться POP3 и IMAP без почтового клиента.
Самая эффективная зашита от парсинга (то есть защита от парсинга — я кстати вылез в топ гугл по запросу этому) — у сайта film.ru . Они просто отключили сайт когда я их начал парсить.
Развожу руками.
Копал-копал и нашёл как сделать Google Maps статичной картинкой.
Поддерживается до 640×640, формат — .gif
Ссылка вида http://maps.google.com/staticmap?center=Координаты&zoom=Зум&size=ШиринаxВысота&markers=Координаты маркера по желанию
Хозяйке на заметку:
Два+ пробела заменяются не так:
perl -le 'use Data::Dumper; my $x = «abc bca \n \t abc bca»; $x =~ s/\s{2,}/ /g; print Dumper $x'
$VAR1 = 'abc bca abc bca';
Два+ пробела заменяются так:
perl -le 'use Data::Dumper; my $x = «abc bca \n \t abc bca»; $x =~ s/[[:blank:]]{2,}/ /g; print Dumper $x'
$VAR1 = 'abc bca
abc bca';