Ugly Regexp

[SCelia]

I'm trying to match all <input> where type=text and then extract the name and value params. Because type, name, and value could be in any order I used the ? quantifier on the value and text params. Unfortuantly this also prevents the matched values from being stored in the $1,$2,$3,... variables. Is there a good way to get around this?

/<input[^>]*(value=&quot;?'?[^'&quot;]+&quot;?'?)?[^>]*(type=&quot;?'?text&quot;?'?)?[^>]*(value=&quot;?'?[^'&quot;]+&quot;?'?)?[^>]*name=&quot;?'?([^>\s&quot;]+)&quot;?'?[^>]*(value=&quot;?'?[^'&quot;]+&quot;?'?)?[^>]*(type=&quot;?'?text&quot;?'?)?[^>]*(value=&quot;?'?[^'&quot;>]+&quot;?'?)?[^>]*>/ Celia

 

[raider2001]

Can you give us a few samples of what you want to capture?

 

[justice41]

Here's something you can tinker with. Hopefully it will give you some ideas.

while (<>) {
    my %inputs;
    if (/(<input[^>]+)/) {
        %inputs = $1 =~ /(\w+)=&quot;?(\w+)&quot;?/g;
    }
    next unless $inputs{type} eq 'text';
    # Do something with key/values in %input ...
    # They will be reset the next time through the loop
    print &quot;-----\n&quot;;
    print &quot;$_ => $inputs{$_}\n&quot; for keys %inputs;
    # Or
    print &quot;name => $inputs{name}\n&quot; if exists $inputs{name};
    print &quot;type => $inputs{type}\n&quot; if exists $inputs{type};
}

jaa