|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Sukhov Vladimir 2:5020/400 16 Jan 2001 17:51:56 To : All Subject : СОС -------------------------------------------------------------------------------- Привет Алл. Есть вот проблемка, требуется вырвать слова, находящиеся в тегах: </font></td><td><font face="Arial" size="-1"><b>ЧТО-то_что_выдрать</b></font></td></tr> пишу типо: - --- #!/usr/bin/perl use LWP::UserAgent; use CGI qw(header -no_debug); print "Content-type: text/html\n\n"; my $URL = 'http://www.rambler.ru/'; my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL); $b= $res->content; $b=/<\/font><\/td><td><font face=\"Arial\" size=\"-1\"><b>/gs .. /<\/b><\/font><\/td><\/tr>/gs; print "$b"; - --- так вот эта гадость печатает: бред типо 1E0 подскажите что не так или как чего?-) заранее благодарен... Best regards. Sukhov Vladimir. ICQ: 2527730 --- ifmail v.2.15dev5 * Origin: Central Telegraph Moscow Russia (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/81334de99f03.html, оценка из 5, голосов 10
|