002
21.05.2006, 21:50 Uhr
~alexanders
Gast
|
Hallo,
ich habe jetzt diesen code:
| Code: |
#!/usr/local/bin/perl
# Ließt ein quelltext von einer seite ein ($url) und wird schließlich bearbeitet
sub keywords_search {
$lines =~ /ntent="(.*)">/; # in $1 steht das was in den klammern ist. SUcht nach " ntent="(.*)" " und speichert den inhalt von (.*) in $1
###########
open(file, ">search.txt");
print file "$1##$2##$3\n";
close (file);
}
sub link_search {
$lines =~ /href="(.*)">/; # in $1 steht das was in den klammern ist.
}
$url = 'http://www.google.de/'
$wahl = 0;
use strict;
use warnings;
use LWP::Simple;
my $lines = get '$url';
if ($lines =~ /<meta name="robots" content="index,follow">/) {
$wahl = 1; # alles erlaubt
&keywords_search;
}
if ($lines =~ /<meta name="robots" content="noindex">/) {
$wahl = 2; # links folgen. Seite selbst nicht auf'm Index
}
if ($lines =~ /<meta name="robots" content="nofollow">/) {
$wahl = 3; # Seite aufnehmen. Links nicht folgen.
}
else {
########### einfach alles machen
}
|
aber bekomme immer diese Fehlermeldung (mit meinen sehr schlechten programmiererfahrungen verstehe ich sie nicht):
perl sortier.pl
Scalar found where operator expected at sortier.pl line 20, near "$wahl"
(Missing semicolon on previous line?)
syntax error at sortier.pl line 20, near "$wahl "
BEGIN not safe after errors--compilation aborted at sortier.pl line 22. |
... 
