rolfrost: Nur für Forumsüchtige...

Beitrag lesen

hi,

untenstehendes Script testet ob sich die Forumshauptdatei in der Länge ändert. Die Ausgabe erfolgt auf der Console. Es könnte auch als Cron installiert werden und Weiteres tun...

Viel Spass damit.
=scr
#!/usr/bin/perl
###########################################################################

Script checkt ob sich eine URL aendert

Dabei wird die Laenge geprueft

Die Daten werden in DB_File zwischengespeichert

###########################################################################

URL

my $url = 'http://forum.de.selfhtml.org';

DB_File

my $dbfile = '/tmp/urlstat';
###########################################################################
use LWP::Simple;
use strict;
use DB_File;

my $length = length(get($url)); # current length
my $old_length; # declare...

my %data;

hash an dbfile binden, Lesen und Schreiben

tie(%data, 'DB_File', $dbfile, O_RDWR|O_CREAT, 0644) or die "Can't tie %data with file $dbfile";

check status

if( not exists $data{$url} ){
 $data{$url} = $length;
 print "URL $url Checked IN\n";
}
else{
 $old_length = $data{$url};
}

check the outcome

if( $length ne $old_length ){
 print "The URL $url has been changed!\n";
 $data{$url} = $length;
}
else{
 print "No Changes at $url since Check IN\n";
}

untie %data;
<STDIN>;
exit;
###########################################################################

=cut

Siehe auch
http://i-netlab.de/cgi-bin/index.cgi?vi=DB_File
... ein kleiner Artikel zu Berkeley - DBs

Viele Grüße, Rolf

--
SELFforum - Das Tor zur Welt!
Theoretiker: Wie kommt das Kupfer in die Leitung?
Praktiker: Wie kommt der Strom in die Leitung?