Lines Matching refs:_

34   return unpack("u", $len . $_);         # uudecode and print
41     my ($section, $part)=@_;
50         if(!$inside && ($_ =~ /^ *\<$section/)) {
53         if((1 ==$inside) && ( ($_ =~ /^ *\<$part([^>]*)/) ||
67         elsif((1 ==$inside) && ($_ =~ /^ *\<\/$section\>/)) {
70         elsif((2 ==$inside) && ($_ =~ /^ *\<\/$part/)) {
78     my ($section, $part)=@_;
88         if(!$inside && ($_ =~ /^ *\<$section/)) {
91         elsif(($inside >= 1) && ($_ =~ /^ *\<$part[ \>]/)) {
93                 push @this, $_;
95             elsif($_ =~ /$part [^>]*base64=/) {
101         elsif(($inside >= 2) && ($_ =~ /^ *\<\/$part[ \>]/)) {
103                 push @this, $_;
107         elsif(($inside >= 1) && ($_ =~ /^ *\<\/$section/)) {
117                     my $decoded = decode_base64($_);
118                     $_ = $decoded;
124             push @this, $_;
141     my ($section, $part)=@_;
146         if(!$inside && ($_ =~ /^ *\<$section/)) {
149         elsif((1 == $inside) && ($_ =~ /^ *\<$part[ \>]/)) {
152         elsif((1 == $inside) && ($_ =~ /^ *\<\/$section/)) {
165     my ($file)=@_;
172             push @xml, $_;
192     my ($pattern, $arrayref) = @_;
197         if($_ !~ /$pattern/) {
198             push @array, $_;
208  my ($firstref, $secondref)=@_;
231     my ($filename, $arrayref)=@_;
236         print TEMP $_;
245     my ($filename)=@_;
250         push @array, $_;
260     my ($logdir, $firstref, $secondref)=@_;
267         my $l = $_;
277         my $l = $_;