11 my %fdat = (foo1 => 'bar1');
12 my $cgix = new CGI::Ex;
16 print "$n - ($string)\n";
18 if ($string =~ m/ value=([\"\'])bar1\1/i
19 && 1 == scalar(@a=$string =~ m/(value)/gi)) {
26 ###----------------------------------------------------------------###
28 $string = qq{<input name="foo1">};
29 $cgix->fill(text => \$string, form => \%fdat);
32 $string = qq{<input name=foo1>};
33 $cgix->fill(text => \$string, form => \%fdat);
36 $string = qq{<input name=foo1 />};
37 $cgix->fill(text => \$string, form => \%fdat);
40 $string = qq{<input value name="foo1">};
41 $cgix->fill(text => \$string, form => \%fdat);
44 $string = qq{<input value value name="foo1">};
45 $cgix->fill(text => \$string, form => \%fdat);
48 $string = qq{<input value value="" name="foo1">};
49 $cgix->fill(text => \$string, form => \%fdat);
52 $string = qq{<input grrr name="foo1" value="">};
53 $cgix->fill(text => \$string, form => \%fdat);
56 $string = qq{<input value= name="foo1">};
57 $cgix->fill(text => \$string, form => \%fdat);
60 $string = qq{<input type=hidden value= name="foo1">};
61 $cgix->fill(text => \$string, form => \%fdat);
64 $string = qq{<input value= type="hidden" name="foo1">};
65 $cgix->fill(text => \$string, form => \%fdat);
68 $string = qq{<input value="" name="foo1">};
69 $cgix->fill(text => \$string, form => \%fdat);
72 $string = qq{<input value='' name="foo1">};
73 $cgix->fill(text => \$string, form => \%fdat);
76 $string = qq{<input value='one' name="foo1">};
77 $cgix->fill(text => \$string, form => \%fdat);
80 $string = qq{<input Value="one" name="foo1">};
81 $cgix->fill(text => \$string, form => \%fdat);
84 $string = qq{<input VALUE="one" name="foo1">};
85 $cgix->fill(text => \$string, form => \%fdat);
88 $string = qq{<input name="foo1" value="one">};
89 $cgix->fill(text => \$string, form => \%fdat);
92 $string = qq{<INPUT NAME="foo1" VALUE="one">};
93 $cgix->fill(text => \$string, form => \%fdat);
96 $string = qq{<INPUT NAME="foo1" VALUE="one" >};
97 $cgix->fill(text => \$string, form => \%fdat);
100 $string = qq{<INPUT NAME="foo1" VALUE="" >};
101 $cgix->fill(text => \$string, form => \%fdat);
104 $string = qq{<INPUT NAME="foo1" VALUE= >};
105 $cgix->fill(text => \$string, form => \%fdat);
108 $string = qq{<INPUT NAME="foo1" VALUE >};
109 $cgix->fill(text => \$string, form => \%fdat);
112 $string = qq{<INPUT NAME="foo1" VALUE />};
113 $cgix->fill(text => \$string, form => \%fdat);
116 $string = qq{<INPUT NAME="foo1" VALUE= />};
117 $cgix->fill(text => \$string, form => \%fdat);
120 $string = qq{<INPUT NAME="foo1" VALUE="" />};
121 $cgix->fill(text => \$string, form => \%fdat);
124 $string = qq{<INPUT NAME="foo1" VALUE="one" />};
125 $cgix->fill(text => \$string, form => \%fdat);
128 $string = qq{<INPUT NAME="foo1" VALUE="one" />};
129 $cgix->fill(text => \$string, form => \%fdat);