выводим получившуюся изменённую страницу. Если
154 }
155 }
156 $root->pos(undef);
157 foreach my $td($root->look_down(_tag => 'table', cellspacing => '1')){
158 if($td->as_HTML("<>%") =~ m%<small style="color:FFFFFF"><b>(.*)</b>%){
159 $td->replace_with(' ');
160 }
161 }
162 foreach my $td($root->look_down(_tag => 'table', cellpadding => '3')){
163 if($td->as_HTML("<>%") =~ m%<td class="paddleft"><small style="color:FFFFFF"><b>(.*)</b></small>%){
164 $td->replace_with(' ');
165 }
166 }
167 $text_string2 = $root->as_HTML("<>%"); # выводим получившуюся изменённую страницу. Если не указать параметров "<>%"- то для русского языка будут проблемы в том, что документ будет непонятно в какой кодировке(по крайне мере в этой версии HTML::Tree), хотя для английского языка будет всё ок, хотя автор модуля рекомендует использовать именно так этот метод для совместимости со старыми версиями модуля.
168 return $text_string2;
169 }
170 sub lockfile # функция блокировки файла
171 {
172 my $handle=shift;
173 my $count = 0;
174 until (flock($handle,2)){
175 sleep . 10;
176 if(++$count > 50){
177 print "<center><h1><font color=red>Sorry, Server is too busy. Please visit later.</font></h1></center>";