Разбор строки на Perl - есть ответ

Dini, 202 просмотра

var info=['Всего отпечатков',145758,'Черно-белых отпечатков',136252,'Черно-белых копий',31841, -- здесь много вырезано -- 'Непечатано больших цветных листов',581,'Передано изображений',4328,'Изображений передано по эл. почте',0,'Передано изображений сетевого сканирования',4328,'Сохранено отсканированных изображений',4336];
В обшем есть вот такая строка, надо на перле из неё получить массив ($count, $value), как это сделать проще?

Примечание:
2 vad85: получаю только одно значение где в ковычках указано только одно слово... :(

Примечание:
2 Иван: Не показывает последнюю строчку... :(
2 vad85: В начале выдаёт пару лишних строк.

Примечание:
Разобрался на ваших примерах:
while ($html=~/\'([^,']+)\'\,(\d+)/sig) {
print "$1 - $2\n";
}

Ответы:

vad85

while ($str=~/\'(\w+)\'\,(\d+)/sig) {
$otpechatki=$1;
$value=$2;
}

Иван Козначеев

while ($str=~/\'([^,']+)\'\,(\d+)\,/sig)
{ $otpechatki=$1; $value=$2; print $otpechatki." ".$value."\n";}

vad85

while ($str=~/\'(.*?)\'\,(\d+)/sig) {
my $otpechatki=$1;
my $value=$2;
print "$otpechatki: $value\n";
}
Проверено, работает....

parserpro

Так быстрее:
use strict;
use Data::Dumper;

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.