Perl регулярные выражения и извлечение / манипулирование данными

Question

Я не уверен, с чего начать ... Мой клиент получает данные о запасах от своего поставщика, но теперь они отправляются в другом формате, вот пример кода:

[["BLK",[["Black","0F1315"]],[["S","813"],["M","1378"],["L","1119"],["XL","1069"],["XXL","412"],["3XL","171"]]],["BOT",[["Bottle","15451A"]],[["S","226"],["M","425"],["L","772"],["XL","509"],["XXL","163"]]],["BUR",[["Burgundy","73002E"]],[["S","402"],["M","530"],["L","356"],["XL","257"],["XXL","79"]]],["DNA",[["Deep Navy","000F33"]],[["S","699"],["M","1161"],["L","1645"],["XL","1032"],["XXL","350"]]],["EME",[["Emerald","0DAB5E"]],[["S","392"],["M","567"],["L","613"],["XL","431"],["XXL","97"]]],["HEA",[["Heather","C0D4D7"]],[["S","374"],["M","447"],["L","731"],["XL","386"],["XXL","115"],["3XL","26"]]],["KEL",[["Kelly","0FFF00"]],[["S","167"],["M","285"],["L","200"],["XL","98"],["XXL","45"]]],["NAV",[["Navy","002466"]],[["S","451"],["M","1389"],["L","1719"],["XL","1088"],["XXL","378"],["3XL","177"]]],["NPU",[["Purple","560D55"]],[["S","347"],["M","553"],["L","691"],["XL","230"],["XXL","101"]]],["ORA",[["Orange","FF4700"]],[["S","125"],["M","273"],["L","158"],["XL","98"],["XXL","98"]]],["RED",[["Red","FF002E"]],[["S","972"],["M","1186"],["L","1246"],["XL","889"],["XXL","184"]]],["ROY",[["Royal","1500CE"]],[["S","1078"],["M","1346"],["L","1102"],["XL","818"],["XXL","135"]]],["SKY",[["Sky","91E3FF"]],[["S","567"],["M","919"],["L","879"],["XL","498"],["XXL","240"]]],["SUN",[["Sunflower","FFC700"]],[["S","843"],["M","1409"],["L","1032"],["XL","560"],["XXL","53"]]],["WHI",[["White","FFFFFF"]],[["S","631"],["M","2217"],["L","1666"],["XL","847"],["XXL","410"],["3XL","74"]]]]

Сначала можно удалить начальный [ и конечный ]

Затем необходимо разбить его на сегменты цветов, например:

["BLK",[["Black","0F1315"]],[["S","813"],["M","1378"],["L","1119"],["XL","1069"],["XXL","412"],["3XL","171"]]]

Здесь необходим BLK,следующий блок [["Black","0F1315"]] можно игнорировать.

Далее мне нужно взять данные запаса для каждого размера ["S","813"] и т. д.

Поэтому у меня должны быть такие данные, как:

 $col = BLK
 $size = S
 $qty = 813

 $col = BLK
 $size = M
 $qty = 1278

и повторите этот сегмент для каждого цветового сегмента в данных.

Количество цветовых сегментов в данных будет варьироваться, как и количество сегментов для определения размеров внутри.Кроме того, количество сегментов изменения размера будет варьироваться от цвета к цвету, т. Е. Может быть 6 размеров для BLK, но только 5 для RED

. Данные будут записаны, пока в цикле для них будет что-то вроде print "$col:$size:$qty".хорошо, тогда это будет в формате, готовом к обработке.

Извините за длинное сообщение, я просто не могу разобраться с этим сегодня !!

С уважением,

Stu

Answer 1

Для меня это похоже на действительный JSON, почему бы не использовать JSON-парсер вместо попытки решить это с помощью регулярного выражения?

use JSON;
my $json_string = '[["BLK",[["Black","0F1315"]],[["S","813"...<snip>';
my $deserialized = from_json( $json_string );

Затем вы можете перебирать массив и извлекать нужные вам фрагменты информации.

Answer 2

Опираясь на Ответ Тима Пицкера :

...
my $deserialized = from_json( $json_string );
foreach my $group ( @$deserialized ) {
    my ( $color, undef, $sizes ) = @$group;
    print join( ":", $color, @$_ ), "\n" for @$sizes;
}

(И да, для этого конкретного формата eval должен работать так же, как from_json, хотя последний безопаснееОднако вы должны попытаться найти официальную спецификацию для формата: это действительно JSON или что-то еще?)

Answer 3

Предположим, у вас есть данные в $ str, затем eval (EXPR) (Danger Will Robinson!) И обработка полученной структуры данных:

my $struct = eval $str;

foreach my $cref (@$struct) {
    my($color, undef, $sizerefs) = @$cref; # 3 elements in each top level
    foreach my $sizeref (@$sizerefs) {
        my($size, $qty) = @$sizeref;
        print "$color:$size:$qty\n";
    }
}