perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 18
 Click for quality!



11.02.2012 / 07:15
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragMetaTag auslesen
 Seitenanfang
hallo
ich möchte fdür ca 200 domains den title und discription auslesen lassen.
habe dazu folgendes script gefunden:


#!/usr/bin/perl
     use LWP::Simple;
      $string = get($URL);
   $Title = "";
   $Description = "";
   ## Get title ##
   if ($string =~ /<title>([^<]*)<\/title>/i) {
      $Title = $1;
      $string =~ s/<title>([^<]*)<\/title>/ /oi;
      for ($i=0; $i<$Title_Rank; $i++) {
         $string .= " " . $Title;
      }
   }
   else {
      $Title = $webname;
   }
   ## Get Description
   if ($string =~ /<meta\s+name="description"\s+content="([^\"]*)">/i) {
      $Description = $1;
   }
   $Title =~ s/\s+/ /g;
   if ($Title =~ /^ (.*)/) {
      $Title = $1;
   }
   $Description =~ s/\s+/ /g;
   if ($Description =~ /^ (.*)/) {
      $Description = $1;
   }
   $spidered{'Title'} = $Title;
   $spidered{'Description'} = $Description;
   $spidered{'URL'} = $URL;

leider gibt er nicht aus wenn ich es so ausführe:
./script.pl www.google.com

kann mir da jemand helfen, was ich falsch mache?

Datum: 17.12.2006-17:53
Beitragre: MetaTag auslesen
 Seitenanfang
1. Wie soll die Variable $URL den Wert "www.google.com" bekommen? Da fehlt z.B. ein 


$URL = $ARGV[0];

2. Warum sollte was ausgegeben werden? Es gibt kein einziges Print:


print "$Title\n";

oder 


use Data::Dumper;
print Data::Dumper->Dump([\%spidered]);

3. die get()-Funktion muss wissen, um welches Protokoll es sich handelt, also das Script mit "http://www.google.com" als Parameter aufrufen.

Datum: 26.12.2006-10:21
-






-
 -