(jeffa) Re: phrase and word searching

And here is another way (you can wrap it in a function if you wish) that returns the text inside the quotes without the qoutes:

my $str = qq|"this is one" and "anot""her one" is "" right "her"e|;

my @stuff = map { /([^"]+)"$/ } $str =~ /"([^"]*"|[^\s"]+)/g;

print join("\n", @stuff), "\n";
[download]

The first regular expression returns a list like so:

this is one"
anot"
her one"
"
her"
[download]

and the second regex inside the map removes the left over quote and, as a feature of map, doesn't return the 'empty' ones - so the final list looks like:

this is one
anot
her one
her
[download]

I am sure that this process could be compacted into yet another single regex, but it eludes me.

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

Comment on (jeffa) Re: phrase and word searching Select or Download Code

Replies are listed 'Best First'.
Re: (jeffa) Re: phrase and word searching by Vynce (Friar) on Jun 01, 2001 at 07:38 UTC
and, as a feature of map, doesn't return the 'empty' ones er, um. map does return empties; grep does not. however, i think what's going on in that case is that map is returning an empty list, which then gets "lost" in the assignment into a list, because of how arrays flatten in assignment. e.g., `@a = ("1", "2", "3"), "4", ("5", "6"), (), "7";` [download] is equivalent to `@a = qw(1 2 3 4 5 6 7)` [download] . here's a one-liner that demonstrates that map returns empties: `perl -e '@foos = map { /[13579]/ ? "foo" : "" } (0..50); print join "\ +n", @foos; print "\n\n"'` [download] and one the demonstrates that grep doesn't ¹: `perl -e '@foos = grep { /[13579]/ ? "foo" : "" } (0..50); print join " +\n", @foos; print "\n\n"'` [download] ... and that lists get squashed if map happend to be returning lists: `perl -e '@foos = map { /[13579]/ ? ("foo",$_) : () } (0..50); print jo +in "\n", @foos; print "\n\n"'` [download] . [1] well, it isn't as easy as that. grep returns a list of the values on the rhs that make the grep evaluate to true. but if you can use it like a map by assigning into $_, if you really want to: `perl -e '@foos = grep { $_= (/[13579]/ ? "foo" : "") } (0..50); print +join "\n", @foos; print "\n\n"'` [download] but i'm digressing again. .	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: (jeffa) Re: phrase and word searching
by Vynce (Friar) on Jun 01, 2001 at 07:38 UTC

and, as a feature of map, doesn't return the 'empty' ones

er, um. map does return empties; grep does not. however, i think what's going on in that case is that map is returning an empty list, which then gets "lost" in the assignment into a list, because of how arrays flatten in assignment. e.g.,

@a = ("1", "2", "3"), "4", ("5", "6"), (), "7";
[download]

@a = qw(1 2 3 4 5 6 7)
[download]

here's a one-liner that demonstrates that map returns empties:

perl -e '@foos = map { /[13579]/ ? "foo" : "" } (0..50); print join "\
+n", @foos; print "\n\n"'
[download]

perl -e '@foos = grep { /[13579]/ ? "foo" : "" } (0..50); print join "
+\n", @foos; print "\n\n"'
[download]

perl -e '@foos = map { /[13579]/ ? ("foo",$_) : () } (0..50); print jo
+in "\n", @foos; print "\n\n"'
[download]

[1] well, it isn't as easy as that. grep returns a list of the values on the rhs that make the grep evaluate to true. but if you can use it like a map by assigning into $_, if you really want to:

perl -e '@foos = grep { $_= (/[13579]/ ? "foo" : "") } (0..50); print 
+join "\n", @foos; print "\n\n"'
[download]

[reply]
[d/l]
[select]