mini-notes-issue-4/

Пришло время для очередного выпуска мини-заметок. Вас ждут парочка полезных фильтров для WordPress, несколько Perl-скрипов и другие приятные мелочи. Предыдущие выпуски мини-заметок можно найти здесь (#3) и там (#2) .

1. Работа с UTF-8 в Perl

Perl хранит строки в виде массивов целых чисел. Чтобы работать с данными в кодировке UTF-8 , сначала нужно преобразовать их во внутреннее представление интерпретатора. Делается это очень просто:

use strict ;
use utf8 ;

my $str ;
# … $str := данные в кодировке utf8 …

# декодируем строку из utf8 во внутреннее представление
utf8 :: decode ( $str ) ;

# теперь $str можно обрабатывать

Прежде, чем вывести данные в консоль или файл, их нужно преобразовать из внутреннего представления обратно в кодировку UTF-8:

# кодируем строку в utf8
utf8 :: encode ( $str ) ;

# выводим куда-нибудь

Если все время кодировать-декодировать данные не хочется, можно возложить эту работу на интерпретатор:

#!/usr/bin/perl

use strict ;
use utf8 ;

binmode STDIN , «:utf8» ;
binmode STDOUT , «:utf8» ;

print «Ваше имя: » ;
chomp ( my $name = <> ) ;
print «Привет, $name! n » ;

Более короткий вариант:

#!/usr/bin/perl

use strict ;
use utf8 ;
use open qw/:std :utf8/ ;

print «Ваше имя: » ;
chomp ( my $name = <> ) ;
print «Привет, $name! n » ;

По-моему, все просто и логично. Соответствующая инфа прекрасно гуглится (я же ее как-то нашел в свое время). Однако почему-то этот вопрос довольно часто всплывает на форумах и в IRC .

Следует учесть, что описанный выше рецепт позволяет «нормально» работать даже с кодами, еще не используемыми в Unicode. В некоторых случаях (например, если вы пишите свой веб-фреймворк) вам может потребоваться более строгая работа с UTF-8. Подробности можно узнать в статье Know the difference between utf8 and UTF-8 .

Подробнее о том, как Perl работает с различными кодировками, можно прочитать в этой статье .

2. Скрипт для скачивания видео с Vimeo.com

Как выяснилось, Vimeo легко ковыряется с помощью Firebug .

#!/usr/bin/env perl

# vimeo.com downloader v 0.1
# (c) Alexandr A Alexeev 2011 | http://remontka.com/

use strict ;

my $url = shift ;
my $vid ;
unless ( ( $vid ) = $url =~ m #^http://(?:www.)?vimeo.com/(d+)$#i) {
die «Usage: $0 http://vimeo.com/1234567 n » ;
}

my $data = `wget ‘$url’ -O -` ;
if ( $? ) {
die «Download failed: wget returns $?» ;
}

my $regex = qr #»signature»:»([0-9a-f]{32})»,»timestamp»:([0-9]+),[^}]+},»video»:{«id»:(d+)#i;
my ( $sign , $time , $clip_id ) ;
unless ( ( $sign , $time , $clip_id ) = $data =~ $regex ) {
die «Failed to parse html code» ;
}

my $url =
«http://player.vimeo.com/play_redirect» .
«?clip_id=$clip_id&sig=$sign&time=$time» .
«&quality=hd,sd,mobile&codecs=H264,VP8,VP6» ;
`wget ‘$url’ -O $vid.mp4` ;
if ( $? ) {
print «Download failed: wget returns $?» ;
} else {
print «Video saved to $vid.mp4 n » ;
}

Также в этом блоге вы можете найти аналогичные скрипты для YouTube и RuTube .

Дополнение: См также CPAN-модули WWW::YouTube::Download и WWW::Vimeo::Download .

3. Скрипт для скачивания файлов с DepositFiles

Загружать на DepositFiles мы уже умеем, а вот доунлоадер еще не писали:

#!/usr/bin/env perl

# quick-deposit.pl script v 0.1
# (c) Alexandr A Alexeev 2011 | http://remontka.com/

use strict ;
use File :: Temp ;

# проверяем наличие всех необходимых утилит
{
my @depends = qw/wget/ ;
my $not_found ;
for ( @depends ) {
print «ERROR: $_ not found» and ++ $not_found
if ( system ( «which $_ > /dev/null» ) ) ;
}
exit 1 if ( $not_found ) ;
}

my $url = shift ;
die «Usage: $0 <url> n »
unless ( $url && $url !~ /’/ ) ;

# валидация url
if ( $url !~ m #depositfiles.com/(.*)$#i) {
die «Step 0: invalid url! n » ;
}
$url = $1 ;
if ( $url !~ m #^[a-z]{2}/#i) {
$url = «ru/$url» ; # обязательно нужен двубуквенный префикс!
}
$url = «http://depositfiles.com/$url» ;

my $cookies = tmpnam ( ) ;
my $data ;

STEP1 :
$data = `wget -q ‘$url’ —post-data=’gateway_result=1′ —save-cookies=$cookies -O -` ;
die «Step 1: wget returns $? n » if ( $? ) ;

if ( $data =~ m #<span class=»html_download_api-limit_parallel»>#i) {
print «Parallel limit, sleeping 2 min… n » ;
sleep 120 ;
goto STEP1 ;
}

if ( $data =~ m #<span class=»html_download_api-limit_interval»>(d+)</span>#i) {
my $sleep = $1 ;
print «limit_interval = $sleep (~ » . int ( $sleep / 60 ) . » min) n » ;
sleep 60 ; # $sleep;
goto STEP1 ;
}

my $get_file_url ;
if ( $data !~ m #(get_file.php?fid=[0-9a-f]+)#i) {
die «Step 1: get_file url not found! n » ;
}
$get_file_url = «http://depositfiles.com/$1» ;

print «Sleeping 60 seconds… n » ;
sleep 61 ;

STEP2 :
$data = `wget -q ‘$get_file_url’ —load-cookies=$cookies -O -` ;
die «Step 2: wget returns $? n » if ( $? ) ;

# тут _теоретически_ может возникнуть ситуация, когда кто-то нас опередил
# но на практике такое не происходит

my $download_url ;
if ( $data !~ m #<form action=»(http://fileshare[^»]+)»#i) {
if ( $data =~ m #Please wait d{1,2} sec#i) {
# Please wait 60 sec or use GOLD account to download with no time limits
print «Sleeping 5 seconds… n » ;
sleep 5 ;
goto STEP2 ;
}
die «Step 2: failed to get download url! n » ;
}
$download_url = $1 ;

die «Invalid download url: $download_url n »
if ( $download_url =~ /’/ ) ;
print «Downloading $download_url n » ;

system ( «wget ‘$download_url’ —load-cookies=$cookies» ) ;

Просто скармливаем скрипту ссылку и занимаемся дальше своими делами. Он сам подождет 60 или сколько-там-надо секунд, после чего бережно скачает требуемый файл на диск.

4. Запрещаем комментаторам блога оставлять ссылки

Чтобы меньше беспокоиться по поводу ручного спама в ваших WordPress-блогах, пропишите следующий код в functions.php:

// удаляем все ссылки в тексте комментариев (даже в RSS)
function fltr_get_comment_text ( $str ) {
$str = preg_replace (
‘/<a href=[«‘]{1}([^»‘]+)[«‘]{1}[^>]*>([^<]+)</a>/i’ ,
‘$2 [$1]’ ,
$str
) ;
$str = str_replace ( ‘tp://’ , ‘tp://’ , $str ) ;
return $str ;
}

add_filter ( ‘get_comment_text’ , ‘fltr_get_comment_text’ ) ;

Теперь все ссылки в комментариях будут заменяться на последовательность «текст_ссылки [url_простым_текстом]». Таким образом мы избавимся от всех гиперссылок в комментах. Пусть комментаторы ссылаются, на что хотят 🙂

5. Скрытие ссылок средствами JavaScript

А вот такой прием можно использовать в агрегаторах новостей:

function js_urlencode ( $str ) {
$str = mb_convert_encoding ( $str , ‘UTF-16’ , ‘UTF-8’ ) ;
$out = » ;
for ( $i = 0 ; $i < mb_strlen ( $str , ‘UTF-16’ ) ; $i ++ )
$out .= ‘%u’ . bin2hex ( mb_substr ( $str , $i , 1 , ‘UTF-16’ ) ) ;
return $out ;
}

function hide_link ( $matches ) {
$url = $matches [ 1 ] ;
$str = $matches [ 2 ] ;
$id = md5 ( «SECRET123456» . $url ) ;
return
«<span id=’ $id ‘>» . ( ( $str === $url ) ? $url : » $str [ $url ]» ) .
«</span><script type=’text/javascript’><!— n » .
‘document.getElementById(«‘ . $id . ‘»).innerHTML = ‘ .
‘unescape(«‘ . js_urlencode ( ‘<a href=»‘ . $url . ‘»>’ . $str . ‘</a>’ ) .
» » ); n //—></script>»» ;
}

// вывести архив с зашифрованными ссылками
function js_the_content ( $str ) {
$str = preg_replace_callback (
‘#<a href=»»([^»»]+)»»>([^<]+)</a>#i’
«»hide_link»»
$str
) ;
return $str ;
}