Задать вопрос
targumon

targumon

Ответы пользователя по тегу Регулярные выражения

  • Как составить правильную регулярку?

    targumon
    @targumon 
    <text[^>]+>.*?([а-яёА-ЯЁ\(\)]+(?:\s+[а-яёА-ЯЁ\(\)]+)*).*?<
    Ответ написан
    Комментировать
    Комментировать

  • PCRE Регулярное выражение для файла и пути в URI?

    targumon
    @targumon
    ^(?:[^:]+://)?(.+?)/([^/]+)$
    Ответ написан
    Комментировать
    Комментировать

  • Как сделать замену регулярным выражением на Питон?

    targumon
    @targumon 
    re.sub(r'\[([^\]]*?)]\s*?\(([^\)]*?)\)', r'$$$\1,\2###', text)
    Ответ написан
    Комментировать
    Комментировать

  • Как составить регулярку для поиска ссылки с изображением?

    targumon
    @targumon 
    re.findall(r'(http:\/\/imgsite\.com\/wallpapers\/[a-z\d\/-]+320x480\.(?:jpg|png))', html, re.I)
    Ответ написан
    Комментировать
    Комментировать

  • Регулярные выражения. Как вырезать нужный текст?

    targumon
    @targumon 
    use Mojo::DOM;

my $text = '<img id = "3" class="lazy" src="/media/a.jpg" data-original="/media/a.jpg" alt="text">';
my $data_original = Mojo::DOM->new( $text )->find( 'img' )->map( attr => 'data-original' );

print "$_\n" foreach @$data_original;
    Ответ написан
    2 комментария
    2 комментария

  • Как правильно написать регулярку в perl?

    targumon
    @targumon
    Можно использовать подобный вариант.

    Конфиг, допустим, такой:


    <VirtualHost 222.222.222.222:81 >
    ServerName somedomain.com
    CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
    DocumentRoot /var/www/someuser/data/www/somedomain.com
    ErrorLog /var/www/httpd-logs/somedomain.com.error.log
    ServerAlias www.somedomain.com
    SuexecUserGroup someuser somegroup
    ServerAdmin webmaster@somedomain.com
    ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
    </VirtualHost>
    <VirtualHost 222.222.222.222:81 >
    ServerName somedomain1.com
    CustomLog /var/www/httpd-logs/somedomain1.com.access.log combined
    DocumentRoot /var/www/someuser/data/www/somedomain1.com
    ErrorLog /var/www/httpd-logs/somedomain1.com.error.log
    ServerAlias www.somedomain1.com
    SuexecUserGroup someuser somegroup
    ServerAdmin webmaster@somedomain1.com
    ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain1.com/cgi-bin/
    </VirtualHost>
    <VirtualHost 222.222.222.222:81 >
    ServerName somedomain2.com
    CustomLog /var/www/httpd-logs/somedomain2.com.access.log combined
    DocumentRoot /var/www/someuser/data/www/somedomain2.com
    ErrorLog /var/www/httpd-logs/somedomain2.com.error.log
    ServerAlias www.somedomain2.com
    SuexecUserGroup someuser somegroup
    ServerAdmin webmaster@somedomain2.com
    ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain2.com/cgi-bin/
    </VirtualHost>


    sub removeIfSomedomain($$) {
    my $text = shift;
    my $domain = shift;
    
    $text = '' if $text =~ m{^\s*?ServerName\s+?$domain\s*?$}igsm;
    
    return $text;
}

sub changeContent($$$) {
    my $text = shift;
    my $domain = shift;
    my $new_values = shift;
    
    return $text if $text !~ m{^\s*?ServerName\s+?$domain\s*?$}igsm;
    
    foreach my $key ( keys %$new_values ) {
        $text =~ s{^(\s*?$key\s+?).+?$}{$1$new_values->{$key}}igsm;
    }
    
    return $text;
}

my $config = ... ; # содержимое конфига

$config =~ s{(<VirtualHost[^>]*?>.*?<\/VirtualHost>)}{ removeIfSomedomain($1,'somedomain1.com') }igse;

$config =~ s{(<VirtualHost[^>]*?>.*?<\/VirtualHost>)}{ 
                changeContent($1,'somedomain2.com', { SuexecUserGroup => 'justuser justgroup', 
                                                      ServerAlias => 'www.sd2.com', 
                                                      ServerAdmin => 'admin@somedomain2.com' } ) 
                                                      }igse;


    Выхлоп:


    <VirtualHost 222.222.222.222:81 >
    ServerName somedomain.com
    CustomLog /var/www/httpd-logs/somedomain.com.access.log combined
    DocumentRoot /var/www/someuser/data/www/somedomain.com
    ErrorLog /var/www/httpd-logs/somedomain.com.error.log
    ServerAlias www.somedomain.com
    SuexecUserGroup someuser somegroup
    ServerAdmin webmaster@somedomain.com
    ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain.com/cgi-bin/
    </VirtualHost>

    <VirtualHost 222.222.222.222:81 >
    ServerName somedomain2.com
    CustomLog /var/www/httpd-logs/somedomain2.com.access.log combined
    DocumentRoot /var/www/someuser/data/www/somedomain2.com
    ErrorLog /var/www/httpd-logs/somedomain2.com.error.log
    ServerAlias www.sd2.com
    SuexecUserGroup justuser justgroup
    ServerAdmin admin@somedomain2.com
    ScriptAlias /cgi-bin/ /var/www/someuser/data/www/somedomain2.com/cgi-bin/
    </VirtualHost>
    Ответ написан
    3 комментария
    3 комментария