Вытянуть текст между символами и началом новой строки

Рейтинг: 1Ответов: 1Опубликовано: 01.04.2015

Есть следующий текст:

QR-Code:какой-то текст
QR-Code:еще какой-то текст
QR-Code:текст для кода
QR-Code:текст для кодирования
scanned 6 barcode symbols from 6 images

нужно вытянуть значения QR-кодов между "QR-Code:" и символом начала новой строки.

пробую регулярным выражением типа:

QR-Code:(.*)\n

не получается. подскажите как его правильно составить?

Ответы

▲ 1

Перловый скрипт

#!/usr/bin/perl

my $text = <<CUT;
QR-Code:какой-то текст
QR-Code:еще какой-то текст
QR-Code:текст для кода
QR-Code:текст для кодирования
scanned 6 barcode symbols from 6 images
CUT

my @codes = $text =~ /QR-Code:(.+?)\n/mg;

print join "\n", @codes;

выводит такой результат:

какой-то текст
еще какой-то текст
текст для кода
текст для кодирования

То, что надо?