Hallo...
ich werde noch halb wahnsinnig.
Ich rauf es nicht, eine Seite/URL einzulesen und den Inhalt nach Texten zu durchsuchen, die mich interessieren. Ich habe es mit LWP::UserAgent, HTML::Parser probiert und bekomme nur Fehlermeldungen, keine Ergebnisse...
Meine Nerven rauchen und ich seh nix mehr.... HILFE !!!
Also, ich lese aus einer Datei Links ein. Diese arbeite ich der Reihenfolge nach ab. Die im Browser geöffnete Seite möchte ich nun derart verarbeiten, daß ich z.B. entscheide, wie lange die Seite geöffnet bleibt - ob ich die Links (URL's) einlese und speichere oder ganz schnell zur nächsten gehe.. oder...
mein Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#!C:\xampp\xampp\perl\bin\perl.exe -w
use strict ;
use CGI ;
use CGI::Carp qw/fatalsToBrowser/;
my $mycgi = new CGI;
my $p = HTML::Parser->new ();
my $links_datei='../mails/output_url.html';
my $zyklus=35;
my $check1 = "Blöder Text.";
my $check2 = "ichweißwas";
my $check3 = "Hau doch ab";
my $line=$mycgi->param("line");
$line=0 if(!$line);
if(open(IN, "<", $links_datei))
{
# Finde den Nächsten Eintag
my @links=();
while(my $i=<IN>)
{
chomp($i);
push(@links,$i);
}
close(IN);
$line++;
$line=0 if($line>@links); # zeile auf 0, wenn line > Anzahl der Elemente in @links
$zyklus = 35;
# Seite parsen und Zeit setzen
# Seite parsen
# den Link ausgeben:
print $mycgi->header.
'<html>
<head>
<title>Testseite</title>
<meta http-equiv="refresh" content="'.$zyklus.'; URL='.$mycgi->url(-relative=>1).'?line='.$line.'">
</head>
<frameset rows="*" border="3">
<frame src="'.$links[$line].'" border="0">
<noframes>
<body>Frames müssen darstellbar sein</body>
</noframes>
</frameset>
<body>Frames müssen darstellbar sein</body>
</html>';
}
else
{
print $mycgi->header.
$mycgi->start_html('FEHLER').
$mycgi->h1('FEHLER').
$mycgi->p($_[0]).
$mycgi->end_html;
}
$check1 - $check3 sind beispiele zum text untersuchen...
So nach der Art soll's gehen:
if ($seiteninhalt =~ $check1 )
{ $zyklus = 5; }
elseif ( $seiteninhalt =~ $check2 )
{ $zyklus = 100; }
Wie kann ich das umsetzen - ohne durchzudrehen ???\n\n
<!--EDIT|justme69|1090266194-->
MfG
Stefan