Re: Convert string to data structure

[johngg]

in reply to Convert string to data structure

A variation using splits and maps.

$  perl -MData::Dumper -Mstrict -Mwarnings -E '
> my $str =
>    q{1. ...... AB_CD 1.1 ...... EF_GH 1.2 .... IJ_KL_MN 2. .........
+... OPQR};
> my $raChapters = [
>    map { { chapter => $_->[ 0 ], name => $_->[ 1 ] } }
>    map { [ split m{[. ]{2,}} ] }
>    split m{ (?=\d)}, $str
>    ];
> print Data::Dumper->Dumpxs( [ $raChapters ], [ qw{ raChapters } ] );
+'
$raChapters = [
                {
                  'name' => 'AB_CD',
                  'chapter' => '1'
                },
                {
                  'name' => 'EF_GH',
                  'chapter' => '1.1'
                },
                {
                  'name' => 'IJ_KL_MN',
                  'chapter' => '1.2'
                },
                {
                  'name' => 'OPQR',
                  'chapter' => '2'
                }
              ];
$