Регулярное выражение: содержит ли строка текст, соответствующий шаблону K-00000000

@joymix · Регистрация: 08.02.2019

Коллеги, нужен небольшой хелп.
нужно проверить, содержит ли строка текст соответствующий шаблону K-00000000 (буквально символ K заглавная или нет, дефис, далее цифра из 8 знаков) и если да - получить это значение.

что-то вроде такого, как я понимаю...
if ($a =~ m/k-\d{8}/gis) {
и как-то извлечь типа
my $txt .= $1;
}

@churahucha · 09.02.2019, 16:33

# $stroka - переменная в которой будем искать по шаблону
$stroka = "ekfeklvkmdfK-00000000;ere;re;lre;rl,fK-22222222;el;elfv;lef,v;le,fvk-33333333";

#Ищем по шаблону. Всё что нашли загоняем в массив @Nashli и выводи его
@Nashli = ($stroka =~ m#([K,k]-[0-9]{8})#g);

if (scalar(@Nashli)==0) {print "Совпадений не найдено\n";} else {print join "\n", @Nashli;}

Добавлено через 40 минут
Или так (немного поправил)

# $stroka - переменная в которой будем искать по шаблону
$stroka = "K-000000ekfeklvkmdfK-00000000;ere;re;lre;rl,fK-22222222;el;elk-00000fv;lef,v;le,fvk-33333333";

#Ищем по шаблону. Всё что нашли загоняем в массив @Nashli и выводим его
@Nashli = ($stroka =~ m#(k-\d{8})#gi);

if (scalar(@Nashli)==0){print "Совпадений не найдено\n";} else {print join "\n", @Nashli;}

volodin661 · 09.02.2019, 21:04

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

нужен небольшой хелп.

Perl

1	/k-\d{8}/gis

joymix,
после применения данного рег. выражения переменная $1 будет пустой, поскольку захватывающие круглые скобки в шаблоне отсутствуют.
Поэтому либо используй захватывающие скобки, либо обращайся к переменной $& вместо $1.

@joymix · 17.02.2019, 23:39 **[ТС]**

churahucha и volodin661
Большое спасибо.

@joymix 0 / 0 / 0 Регистрация: 08.02.2019 Сообщений: 2
		1
	Регулярное выражение: содержит ли строка текст, соответствующий шаблону K-00000000 08.02.2019, 04:16. Просмотров 1350. Ответов 3 Метки нет (Все метки) Коллеги, нужен небольшой хелп. нужно проверить, содержит ли строка текст соответствующий шаблону K-00000000 (буквально символ K заглавная или нет, дефис, далее цифра из 8 знаков) и если да - получить это значение. что-то вроде такого, как я понимаю... if ($a =~ m/k-\d{8}/gis) { и как-то извлечь типа my $txt .= $1; } 0

@churahucha 0 / 0 / 0 Регистрация: 09.02.2019 Сообщений: 1
	09.02.2019, 16:33	2
	# $stroka - переменная в которой будем искать по шаблону $stroka = "ekfeklvkmdfK-00000000;ere;re;lre;rl,fK-22222222;el;elfv;lef,v;le,fvk-33333333"; #Ищем по шаблону. Всё что нашли загоняем в массив @Nashli и выводи его @Nashli = ($stroka =~ m#([K,k]-[0-9]{8})#g); if (scalar(@Nashli)==0) {print "Совпадений не найдено\n";} else {print join "\n", @Nashli;} Добавлено через 40 минут Или так (немного поправил) # $stroka - переменная в которой будем искать по шаблону $stroka = "K-000000ekfeklvkmdfK-00000000;ere;re;lre;rl,fK-22222222;el;elk-00000fv;lef,v;le,fvk-33333333"; #Ищем по шаблону. Всё что нашли загоняем в массив @Nashli и выводим его @Nashli = ($stroka =~ m#(k-\d{8})#gi); if (scalar(@Nashli)==0){print "Совпадений не найдено\n";} else {print join "\n", @Nashli;} 0

@joymix 0 / 0 / 0 Регистрация: 08.02.2019 Сообщений: 2
	17.02.2019, 23:39 [ТС]	4
	churahucha и volodin661 Большое спасибо. 0

Опции темы