Avatar
Shmuel Leib Melamud

Почему я до сих пользуюсь Perl? Потому что заменить эту швейцарскую армейскую бензопилу нечем.

Возьмём задачу. Есть вот такой YAML. Мне надо взять из каждого блока name и title (те блоки, в которых нет name или title - пропускать). В name заменить все точки на подчёркивания и заключить в кавычки. title тоже заключить в кавычки, если нужно. И сделать из этого кусок JSON в стиле

<name>: <title>,

Делается это таким вот скриптом:

$name = '';
while (<>) {
    $name = $1 if /^- name: (.*)$/;
    if (/^\s*title: (.*)$/) {
        next if $name eq '';
        $name =~ tr/./_/;
        $title = $1;
        $title = "\"$title\"" unless $title =~ /^"/;
        print "\"$name\": $title,\n";
        $name = '';
    }
}

Написано в vi за минуту.

Попробовали бы они такое в Питоне.

To react or comment  View in Web Client
See comments under original post