Find string match

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

Hello,

I have a question about searching a string.

For example I have the following string:

insert into table1 ( v1, v2 , v3) values ( v1, v2, v3)

How can I extract only what's between "into" and the first "(" ?. The name of the table?

Thank you.

Comment on Find string match

Replies are listed 'Best First'.
Re: Find string match by Ratazong (Monsignor) on Feb 23, 2010 at 12:52 UTC
`$str =~ /into\s(.*?)\(/` [download] Now you should have your name in the variable $1. (see also the following info on regexes and greediness) HTH, Rata	[reply] [d/l]
Re^2: Find string match by Utilitarian (Vicar) on Feb 23, 2010 at 12:58 UTC
Not quite `($tablename) = $str=~/\binto\s+([\S]+)/;` *Updated: on foot of cdarke's observations below* `print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."`	[reply] [d/l] [select]
Re^3: Find string match by cdarke (Prior) on Feb 23, 2010 at 13:18 UTC
Not quite The match returns 1 (true). Maybe you are thinking of s? `$str=~/\binto\s+(\S+)/; my $tablename = $1;` [download] `[^\s]` is better written as `\S`	[reply] [d/l] [select]
Re^4: Find string match by Utilitarian (Vicar) on Feb 23, 2010 at 14:39 UTC
Re^3: Find string match by cdarke (Prior) on Feb 23, 2010 at 14:22 UTC
Or maybe: `my $tablename = ($str=~/\binto\s+([^\s]+)/)[0];` [download]	[reply] [d/l]
Re^4: Find string match by BrowserUk (Patriarch) on Feb 23, 2010 at 14:43 UTC
Re^2: Find string match by ddragosa (Acolyte) on Feb 23, 2010 at 12:59 UTC
Thanks. I forget about the "?" after the (.*)	[reply]
Re: Find string match by bobf (Monsignor) on Feb 24, 2010 at 04:53 UTC
If you are going to do anything tricky or if you need more flexibility, you might want to consider using SQL::Statement::Structure instead.	[reply]
Re: Find string match by 7stud (Deacon) on Feb 23, 2010 at 14:48 UTC
`use strict; use warnings; use 5.010; my $query = 'insert into table1 ( v1, v2 , v3) values ( v1, v2, v3)'; my @pieces = split ' ', $query, 4; say "-->$pieces[2]<---"; --output:-- -->table1<---` [download]	[reply] [d/l]