Regex to array

kepler has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Regex to array by choroba (Cardinal) on Jan 09, 2018 at 12:46 UTC
The only problem is the empty field created by split at the start of the text, otherwise you'd have been able to assign the result directly to %sections. But you can create a false entry at the beginning and remove it later: `#! /usr/bin/perl use warnings; use strict; my $text = << '__TEXT__'; SECTION 1 This is the first section. SECTION 2 And this is the second one. __TEXT__ my %section = ("", split /(SECTION \d+)/, $text); delete $section{""}; use Data::Dumper; print Dumper \%section;` [download] Update: Note that hashes use curly brackets, not the square ones (unlike in PHP). ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: Regex to array by Eily (Monsignor) on Jan 09, 2018 at 13:43 UTC
Or there's the option of using undef to ignore a value in a list. I don't remember where it's documented though: `(undef, my %section) = split /(SECTION \d+)/, $text;`	[reply] [d/l]
Re^3: Regex to array by AnomalousMonk (Archbishop) on Jan 09, 2018 at 17:28 UTC
... where it's documented ... See List value constructors in perldata: ... you may assign to "undef" in a list. This is useful for throwing away some of the return values of a function ... Assignment to undef works for any list assignment, but if you're assigning from an array or list, it's usually more sane to use some kind of slice rather than fooling around with `undef`. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^4: Regex to array by Eily (Monsignor) on Jan 09, 2018 at 17:51 UTC
Re^5: Regex to array by AnomalousMonk (Archbishop) on Jan 09, 2018 at 18:49 UTC
Some notes below your chosen depth have not been shown here
Re: Regex to array by Corion (Patriarch) on Jan 09, 2018 at 12:36 UTC
If you trust that your data will be well-formed, you can simply match what you want to keep instead of splitting the string: `my %values = ($string =~ /(SECTION \d+)\s+(.?)/sg);` [download] That idea doesn't work :-/ : `my $string = <<STR; SECTION 1 This is section 1 SECTION 2 This is section 2 STR use Data::Dumper; my %values = ($string =~ /(SECTION \d+)\s+(.?)/sg); print Dumper \%values;` [download]	[reply] [d/l] [select]
Re^2: Regex to array by Eily (Monsignor) on Jan 09, 2018 at 13:40 UTC
It works if you add an end marker for the right part: `use Data::Dump qw( pp ); my $str = <<_BLA_; SECTION 1 bla bla bla SECTION 2 blabla blabla SECTION 3 bla _BLA_ my %hash = $str =~ /(SECTION \d+)\s(.?)(?=SECTION\|$)/sg; pp \%hash; __DATA__ { "SECTION 1" => "bla bla\nbla\n", "SECTION 2" => "blabla\nblabla\n", "SECTION 3" => "bla", }` [download] Edit: \s* rather than \s+ to allow empty section at EOF	[reply] [d/l]
Re^3: Regex to array by kepler (Scribe) on Jan 11, 2018 at 18:05 UTC
Greetings Eily Your solution was the only which made the job correctly done - thanks. Still, thanks to all too. Kind regards, Kepler	[reply]
Re: Regex to array by Laurent_R (Canon) on Jan 09, 2018 at 14:16 UTC
Hi kepler, a slight variation on Corion's proposal, tested here at the command line: `$ perl -e 'use strict; > use warnings; > use Data::Dumper; > > my $string = <<STR; STR> > SECTION 1 > > This is section 1 > > SECTION 2 > > This is section 2 > > STR > > > my %values = ($string =~ /(SECTION \d+)\s+([\w ]+)/mg); > print Dumper \%values; > ' $VAR1 = { 'SECTION 2' => 'This is section 2', 'SECTION 1' => 'This is section 1' };` [download] Edit: My computer froze when I was about to post this. I had to reboot. When I could start again to post, I did not notice that Eily had posted another solution fixing Corion's initial attempt.	[reply] [d/l]