Lines Matching refs:_
61 push @_, $xmlfile;
62 return join("\t", @_);
66 my $s = $_;
77 if(($_ =~ /^ *\<testcase ([^>]*)/)) {
93 my ($section, $part)=@_;
102 if(!$inside && ($_ =~ /^ *\<$section/)) {
105 if((1 ==$inside) && ( ($_ =~ /^ *\<$part ([^>]*)/) ||
119 elsif((1 ==$inside) && ($_ =~ /^ *\<\/$section\>/)) {
122 elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
131 my ($section, $part)=@_;
141 if(!$inside && ($_ =~ /^ *\<$section/)) {
144 elsif(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
146 push @this, $_;
148 elsif($_ =~ /$part [^>]*base64=/) {
152 elsif($_ =~ /$part [^>]*hex=/) {
158 elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
160 push @this, $_;
164 elsif(($inside >= 1) && ($_ =~ /^ *\<\/$section/)) {
178 my $decoded = decode_base64($_);
179 $_ = $decoded;
185 my $decoded = decode_hex($_);
186 $_ = $decoded;
192 push @this, $_;
210 my ($section, $part)=@_;
215 if(!$inside && ($_ =~ /^ *\<$section/)) {
218 elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {
221 elsif((1 == $inside) && ($_ =~ /^ *\<\/$section/)) {
232 my ($file)=@_;
245 push @xml, $_;
268 my ($file)=@_;
273 print $xmlh $_;
293 my ($pattern, $arrayref) = @_;
298 if($_ !~ /$pattern/) {
299 push @array, $_;
309 my ($firstref, $secondref)=@_;
332 my ($filename, $arrayref)=@_;
337 print $temp $_;
346 my ($filename)=@_;
351 push @array, $_;
