Поиск в строке со спецсимолами + $ ^

@serg_min · Регистрация: 24.12.2013

Author24 — интернет-сервис помощи студентам

пожалуйста помогите понять как искать в строках текста, которые содержат такие символы как + $ ^ и др.

пример:
строки $d1 и $d2
при операции сравнения они дают одинаковый результат
при поиске с "-" находит
при поиске с "+" не находит

Perl

#!/usr/bin/perl
 
print "Content-type: text/html\n\n";
 
$d1='s-a';
$d2='s-a';
print $d1," ",$d2,"<br>";
if ($d2 =~ m/$d1/ig){print "m//","<br>";}
if ($d2 eq $d1){print "eq","<br>";}
 
$d1='s+a';
$d2='s+a';
print $d1," ",$d2,"<br>";
if ($d2 =~ m/$d1/ig){print "m//","<br>";}
if ($d2 eq $d1){print "eq","<br>";}
 
exit;

@TheAthlete · 24.12.2013, 13:56

Эти спецсимволы нужно экранировать. Вот пример:

perl -E '$str = "s+a"; say "yes" if $str =~ /\+/'

Выводит 'yes', если в строке содержится '+'. В вашем примере лучше написать следующим образом:

Perl

#!/usr/bin/perl -w
use strict; 
use warnings;
use feature 'say';
 
my $re1 = qr/-/; # создаем объект регулярного выражения
my $str1 = 's-a';
say 'yes' if $str1 =~ /$re1/; # строка 's-a' содержит '-'
 
my $re2 = qr/\+/; # создаем объект регулярного выражения
my $str2 = 's+a';
say 'yes' if $str2 =~ /$re2/; # строка 's+a' содержит '+'

@serg_min · 24.12.2013, 19:15 **[ТС]**

спасибо за помощь
понял - что главное в этом примере акцент на экранировании спецсимволов.

проблема заключается в том что программа получает строки
в которых могут изначально содержаться спецсимволы + & и другие ..
вероятно перед поиском подстроки в ней нужно делать проверку на эти спецсимволы и защищать их экраном \
$d1=~s/\+/\\\+/ig; #в моем примере
$re2=~s/\+/\\\+/ig; #в вашем варианте

может есть какой нибудь другой способ , что бы не проверять на каждый спецсимвол по отдельности ?

рабочий вариант c + :

Perl

#!/usr/bin/perl
 
print "Content-type: text/html\n\n";
 
$d1='s-a';
$d2='s-a';
print $d1," ",$d2,"<br>";
if ($d2 =~ m/$d1/ig){print "m//","<br>";}
if ($d2 eq $d1){print "eq","<br>";}
 
$d1='s+a';
$d2='s+a';
$d1=~s/\+/\\\+/ig;      #заменяем + на \+
print $d1," ",$d2,"<br>";
if ($d2 =~ m/$d1/ig){print "m//","<br>";}
if ($d2 eq $d1){print "eq","<br>";}
 
 
exit;

@TheAthlete · 24.12.2013, 19:33

Сообщение от serg_min

может есть какой нибудь другой способ , что бы не проверять на каждый спецсимвол по отдельности ?

Что вы имеете ввиду? Покажите более полный пример.
Я бы не стал представлять регулярное выражение в виде строки (у вас $d1), т.к. это менее эффективно и менее наглядно, чем использование оператора qr//.

volodin661 · 25.12.2013, 07:02

Сообщение от serg_min

спасибо за помощь
понял - что главное в этом примере акцент на экранировании спецсимволов.

проблема заключается в том что программа получает строки
в которых могут изначально содержаться спецсимволы + & и другие ..
вероятно перед поиском подстроки в ней нужно делать проверку на эти спецсимволы и защищать их экраном \
$d1=~s/\+/\\\+/ig; #в моем примере
$re2=~s/\+/\\\+/ig; #в вашем варианте

может есть какой нибудь другой способ , что бы не проверять на каждый спецсимвол по отдельности ?

если проблема заключается в том, что надо искать литеральные символы в приходящей строке,

игнорируя их специальное значение в Регулярных Выражениях, то для этого существует функция

quotemeta( )., которая обэкслэшивает все ASCII символы, не относящиеся к классу слово (\w),

а именно все символы кроме [ A-Z_a-z_0-9].

Если в переменной $d1 находится строка a+s, то quotemeta($d1) вернёт a \+ s

Для работы внутри регулярного выражения можно использовать \Q и \E для обозначения начала и конца экранирования

соответственно: / \Q$d1\E /.

Есть некоторая тонкость в том, что именно экранируется, а что нет в зависимости от национального алфавита и Юникод-настроек,

но расписывать это не буду, отсылаю к документации

Perl 5 version 18.0 documentation

@serg_min · 26.12.2013, 11:30 **[ТС]**

volodin661, -
вы грамотно сформулировали мою проблему :-) и ваша подсказка " quotemeta( ) " помогла мне.
проверил - работает .

спасибо за помощь и ссылку

TheAthlete, - спасибо )

@TheAthlete 174 / 170 / 19 Регистрация: 31.08.2010 Сообщений: 573
	24.12.2013, 19:33	4
	Сообщение от serg_min может есть какой нибудь другой способ , что бы не проверять на каждый спецсимвол по отдельности ? Что вы имеете ввиду? Покажите более полный пример. Я бы не стал представлять регулярное выражение в виде строки (у вас $d1), т.к. это менее эффективно и менее наглядно, чем использование оператора qr//. 1

volodin661 5981 / 1990 / 323 Регистрация: 10.12.2013 Сообщений: 6,854
	25.12.2013, 07:02	5
	Сообщение было отмечено как решение Решение Сообщение от serg_min спасибо за помощь понял - что главное в этом примере акцент на экранировании спецсимволов. проблема заключается в том что программа получает строки в которых могут изначально содержаться спецсимволы + & и другие .. вероятно перед поиском подстроки в ней нужно делать проверку на эти спецсимволы и защищать их экраном \ $d1=~s/\+/\\\+/ig; #в моем примере $re2=~s/\+/\\\+/ig; #в вашем варианте может есть какой нибудь другой способ , что бы не проверять на каждый спецсимвол по отдельности ? если проблема заключается в том, что надо искать литеральные символы в приходящей строке, игнорируя их специальное значение в Регулярных Выражениях, то для этого существует функция quotemeta( )., которая обэкслэшивает все ASCII символы, не относящиеся к классу слово (\w), а именно все символы кроме [ A-Z_a-z_0-9]. Если в переменной $d1 находится строка a+s, то quotemeta($d1) вернёт a \+ s Для работы внутри регулярного выражения можно использовать \Q и \E для обозначения начала и конца экранирования соответственно: / \Q$d1\E /. Есть некоторая тонкость в том, что именно экранируется, а что нет в зависимости от национального алфавита и Юникод-настроек, но расписывать это не буду, отсылаю к документации Perl 5 version 18.0 documentation 3

@serg_min 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 3
	26.12.2013, 11:30 [ТС]	6
	volodin661, - вы грамотно сформулировали мою проблему :-) и ваша подсказка " quotemeta( ) " помогла мне. проверил - работает . спасибо за помощь и ссылку TheAthlete, - спасибо ) 0

Опции темы

Поиск в строке со спецсимолами + $ ^

Решение