$sql = 'select * from EMP where EMPNO=&eno and DEPTNO=&dno and JOB=&jo
+b';
my @fields;
if (my($where) = $sql =~ /\swhere\s+(.*)/i) {
   @fields = map /(\S*)=&/, split /\sand\s/i, $where;
}
[download]

Hmm, are you sure you want the "=" to be part of the match?

p.s. This is in my opinion a somewhat fishy approach, as it depends strongly on the query being formatted in a specific way. This might suffice for your needs, if the SQL is indeed as restricted as it appears here. In other cases, I'd look at better SQL parsers, like SQL::Parser, or Ovid's article on tokenizing SQL on perl.com

I tried as follows..



$string = "select * from EMP where EMPNO=&eno and DEPTNO=&dno and JOB=
+&job";

@arr = split('\s+',$string);
foreach $i (@arr)
{
    if($i =~ /\&/g)
    {
        @arr1 = split('&',$i);
        print $arr1[0]."\n";
    }
}
[download]



its working fine..Thanks a lot for the support pals !! :)

try this:

print map {"$_\n"} ($str=~/\w+=/g);
[download]

If you want to make sure that there is a "&" following the "=" sign, you can do this instead:

my $out='';
while ($str=~/(\w+=)\&/g){$out.=sprintf "%s\n",$1};
print $out;
[download]

print map {"$_\n"} ($str=~/(\w+=)\&/g); #Thanks nferraz
[download]

Hope this helps!

citromatik

You don't have to iterate to get each variable; just put the returned values into an array:

    my @variables = $str =~ /(\w+\=)\&/g;
    print "$_\n" foreach @variables;
[download]