Perl - статьи


Пример использования модулей LWP и HTML::Tree - часть 8


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('&nbsp;');

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('&nbsp;');

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>";




Начало  Назад  Вперед



Книжный магазин