Парсинг Title и Description

[Grut]

Разыскиваю скрипт, который заходит на сайт из перечисленных в отдельном тхт-файле и сохраняет title и description этих сайтов в отдельные titles.txt и descriptions.txt соответственно.
Подскажите, пожалуйста, есть ли какое паблик-решение?

[-Sunday-]

честно говоря фиг его знает, скорее всего есть, просто это пар строк кода..

[dude]

Сообщение от Grut

Разыскиваю скрипт, который заходит на сайт из перечисленных в отдельном тхт-файле и сохраняет title и description этих сайтов в отдельные titles.txt и descriptions.txt соответственно.
Подскажите, пожалуйста, есть ли какое паблик-решение?

use strict;
use IO::All;
use WWW::Mechanzie;

my $mech = WWW::Mechanize->new();
foreach my $link(split(/\n/,io('input.txt')->all)){
  my $content = $mech->get($link);
  $content =~ /<title>(.*?)</sg;
  my $title = $1;
  $title >> io(' titles.txt') if $title;

  $content =~ /<description>(.*?)</sg;
  my $desc = $1;
  $desc >> io(' descriptions.txt') if $desc;
}

[-Sunday-]

PHP код:

<?php
ob_implicit_flush();
$urls = file("urls.txt");
$file_titles = fopen("titles.txt", "a");
$file_descs = fopen("descriptions.txt", "a");
$pattern1 = "/<title>(.*?)<\/title>/is";
$pattern2 = "/<meta name=(\"|')description(\"|') content=(\"|')(.*?)(\"|')(.*?)>/is";
foreach ($urls as $one_url)
{
    $html = file_get_contents(trim($one_url));
    preg_match($pattern1, $html, $matches);
    fwrite($file_titles, $matches[2]);
    preg_match($pattern2, $html, $matches);
    fwrite($file_titles, $matches[4]);
    echo $one_url . " done.<br />";
}
fclose($file_titles);
fclose($file_descs);
?>

рядом со скриптом кладешь urls.txt со списком урлов, 1 на строку
на папку chmod 0777

[deschain]

Ага,только строку
fwrite($file_titles, $matches[4]);
меняем на
fwrite($file_descs, $matches[4]);

[oledj]

А можно еще какой-то примитивный кравлер по странице карты сайта ? СПс за скриптец большое )

[Grut]

Dude, я не силен в программировании. Это как запускать?

-Sunday-
Тиитлы скрипт парсит, а вот descriptions.txt остаётся пустым.
Если возьмешься исправлять, то сделай пожалуйста, чтоб титл и деск с каждого сайта записывался с новой строки.

[dude]

Сообщение от Grut

Dude, я не силен в программировании. Это как запускать?

сохрани в file.pl
потом
$perl file.pl

[sam_lopata]

Можешь еще тут просмотреть

[Домкрат]

del