Re^2: String contents

Yes, I was trying to extract a string from a textfile, but couldn't parse it correctly. Here is part of the file:

 ended June 30, 2001 in conformity with accounting principles generall
+y accepted
in the United States of America. Also in our opinion, the related fina
+ncial
statement schedule, when considered in relation to the basic consolida
+ted
financial statements taken as a whole, presents fairly, in all materia
+l
respects, the information set forth therein.

Melville, New York                            /s/KPMG LLP
September 26, 2001
[download]

Here is my regex:

/^\s*(\w+),\s*(\w+ \w+)(.+?\s*LLP)$/m;
[download]

I wanted to extract: Melville, New York, /s/KPMG LLP

Any suggestions?

Comment on Re^2: String contents Select or Download Code

Replies are listed 'Best First'.
Re^3: String contents by GrandFather (Saint) on Jun 29, 2012 at 08:30 UTC
Any suggestions? Yes. Take note of my sig. I'm not going to work hard to decode your node because you are too lazy to read the instructions about using a little mark up so that your node is nicely formatted. If you had expended just a little time and effort (maybe five minutes) to explain your problem well and formatted your node nicely you'd have had an answer in 15 minutes and be an hour ahead. True laziness is hard work	[reply]
Re^3: String contents by moritz (Cardinal) on Jun 29, 2012 at 08:25 UTC
Your regex expects the end of the line directly after the `LLP`, but the string goes on. So remove that $ in the regex. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]
Re^4: String contents by perlyr (Novice) on Jun 29, 2012 at 08:32 UTC
you are right, the anchor $ shouldn't be there. But I only extracted "New" instead of "New York"	[reply]
Re^4: String contents by perlyr (Novice) on Jun 29, 2012 at 08:43 UTC
Here is the code again: `/^\s(\w+),\s(\w+ \w+)(.+?\s*LLP)/m` [download] why did I extract "New" instead of "New York"?	[reply] [d/l]
Re^5: String contents by GrandFather (Saint) on Jun 29, 2012 at 09:00 UTC
why did I extract "New" instead of "New York"? Can't tell because you don't actually show the code that generated the result you claim. The regex works as you seem to expect for me: use strict; use warnings; my $str = <<STR; ended June 30, 2001 in conformity with accounting principles generall +y accepted in the United States of America. Also in our opinion, the related fina +ncial statement schedule, when considered in relation to the basic consolida +ted financial statements taken as a whole, presents fairly, in all materia +l respects, the information set forth therein. Melville, New York /s/KPMG LLP September 26, 2001 STR my @matches = $str =~ /^\s(\w+),\s(\w+ \w+)(.+?\s*LLP)$/m; print ">$_<\n" for @matches; [download] Prints: `>Melville< >New York< > /s/KPMG LLP<` [download] True laziness is hard work	[reply] [d/l] [select]
Re^6: String contents by perlyr (Novice) on Jun 29, 2012 at 09:20 UTC
Re^3: String contents by perlyr (Novice) on Jun 29, 2012 at 08:26 UTC
Melville, New York /s/KPMG LLP September 26, 2001	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks