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?