Получить e-mail адрес из SOA-записи DNS

[xM]

Ситуация следующая. В SOA-записях DNS хранится e-mail адрес в несколько необычном формате и его нужно оттуда извлечь (это просто) привести в божеский вид (несколько сложнее).
Например, e-mail this.my.email@my.lovely.personal.domain будет записан в SOA как this\.my\.email.my.lovely.personal.domain..
Задача обратить его в первоначальный вид средствами shell.
Я эту проблему решил набором перезаписей в sed но как-то, на мой вкус, некрасиво.

Код: Выделить всё

# echo "this\.my\.email.my.lovely.personal.domain." | sed -e 's/\\\./\\/g' -e 's/\./@/' -e 's/\\/\./g' -e 's/.$//'
this.my.email@my.lovely.personal.domain

Наверняка есть вариант покрасивее.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

чего некрасиво-то?
работает - и хай работает

[xM]

чего некрасиво-то?

Нет чувства удовлетворённости :-)

[f_andrey]

Тогда будь пацаном, реализуй модификацию RFC 5322 http://emailregex.com/

[xM]

Тогда будь пацаном, реализуй модификацию RFC 5322 http://emailregex.com/

Это не о том. Но ссылка хорошая, спасибо.

[zg]

Код: Выделить всё

% echo "this\.my\.email.my.lovely.personal.domain." | sed 's/\\././g;s/\.$//'
this.my.email.my.lovely.personal.domain

[xM]

zg, @ забыли.

[zg]

ой, точно

ну тогда тут нужен перл, я не знать, как сед уметь ассершин

Код: Выделить всё

% echo "this\.my\.email.my.lovely.personal.domain." | perl -ne '~s/(?<!\\)\./@/; ~s/\.$//; ~s/\\\././g; print;'
this.my.email@my.lovely.personal.domain

UPD: хотя изначальный вариант тоже вполне красивый и рабочий, если его немного сократить

Код: Выделить всё

% echo "this\.my\.email.my.lovely.personal.domain." | sed 's/\\\./\\/g; s/\./@/; s/\\/\./g; s/.$//' 
this.my.email@my.lovely.personal.domain

[xM]

тут нужен перл

Скрипач не нужен.

изначальный вариант тоже вполне красивый и рабочий

Рабочий да. А эстетического удовлетворения, как раз, нет :-)

[zg]

Эстетика это, конечно, да можно и так сделать

soaemail.php

Код: Выделить всё

#!/usr/bin/env php
<?php 

interface Filter {
    function filter($data);
}

class CompositeFilter implements Filter
{
    private $filters = [];
    
    function addFiter(Filter $filter)
    {
        $this->filters[] = $filter;
    }
    
    function filter($data)
    {
        foreach ($this->filters as $filter) {
            $data = $filter->filter($data);
        }
        
        return $data;
    }
}

class SobakenFilter implements Filter
{
    function filter($data)
    {
        return preg_replace('~(?<!\\\\)\\.~', '@', $data, 1);
    }
}

class LastDotFilter implements Filter
{
    function filter($data)
    {
        return preg_replace('~\\.$~', '', $data);
    }
}

class StripSpacesFilter implements Filter
{
    function filter($data)
    {
        return trim($data);
    }
}

class StripSlashesFilter implements Filter
{
    function filter($data)
    {
        return stripslashes($data);
    }
}

class SoaEmailFilter extends CompositeFilter
{
    function __construct()
    {
        $this->addFiter(new StripSpacesFilter());
        $this->addFiter(new SobakenFilter());
        $this->addFiter(new LastDotFilter());
        $this->addFiter(new StripSlashesFilter());
    }
}

$filter = new SoaEmailFilter();

foreach (file('php://stdin') as $line) {
    echo $filter->filter($line), PHP_EOL;
} 

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

Код: Выделить всё

% echo "this\.my\.email.my.lovely.personal.domain." | ./soaemail.php
this.my.email@my.lovely.personal.domain

Ещё можно каждый класс тестами покрыть, потом в композер и на гитхаб красотищща

[xM]

#!/usr/bin/env php

И этот скрипач тоже не нужен. А так-то вариантов вагон. Возможно даже, что где-то есть даже какой-нибудь Perl или Python модуль для этого.
Но я привык не умножать сущности без нужды.