 |
Автоматическое получение списка запрещенных сайтов от РОСКОМНАДЗОР с помощью Perl |
Автор: Lennotoecom
[комментарии]
|
| | Скрипт для автоматической загрузки списка запрещенных сайтов:
...
[Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
| |
 |
|
|
Скрипт для просмотра открытых табов в Firefox |
[комментарии]
|
| | Иногда требуется узнать какие вкладки оставлены открытыми в Firefox, запущенном на другой машине.
...
[Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
| |
|
|
|
Управление конфигурацией Apache из скрипта, при помощи Perl модуля Apache::Admin::Config (доп. ссылка 1) |
Автор: User Di
[комментарии]
|
| | Для парсинга и изменения конфигурации Apache удобно использовать модуль
Apache::Admin::Config
(http://search.cpan.org/dist/Apache-Admin-Config)
...
[Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
| |
|
|
|
Как на Perl правильно выделить все A HREF ссылки из HTML файла. |
[комментарии]
|
| | use HTML::TokeParser;
my $p = HTML::TokeParser->new("index.html");
if ($p->get_tag("title")){
my $title = $p->get_trimmed_text; # Содержимое <title>
}
while (my $token = $p->get_tag("a")) { # перибираем все <a href>
my $url = $token->[1]{href} || "";
my $text = $p->get_trimmed_text("/a"); # Текст между <a ...> и </a>
}
|
| |
|
|
|
Как считать список установленных cookies в хеш. |
[обсудить]
|
| | sub load_cookies{
local (*cook_arr) = @_;
foreach (split(/\;\s*/,$ENV{'HTTP_COOKIE'})){
my ($cur_key, $cur_val) = split(/\=/);
$cook_arr{"$cur_key"} = $cur_val;
}
}
load_cookies(*cooks); print $cooks{"cook_name"};
|
| |
|
|
|
Как добится показа русских букв в JavaScript (перекодировка в UTF) |
[обсудить]
|
| | Для показа русских букв в JavaScript блоке нужно перекодировать их в UTF:
sub koi2utf{
...
[Слишком большой объем текста. Скрыт. Для просмотра см. продолжение]
|
| |
|
|
