Hej!
Det här scriptet läser från filen och returnerar "statusen". Databasen skall vara i formatet:
id|nedladdningar|
t.ex.:
1|4513|
2|2354|
osv.
Vill du veta hur många nedladdningar filen med id 2 har anropas scriptet med:
filnamn.cgi?id=2
#!/usr/bin/perl
# Script för att hämta och läsa data från textdatabas
# Databasfilen
$db_file = "data.db";
# Ändra till din fil/sökväg
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =\~ tr/+/ /;
$value =\~ s/%(\[a-fA-F0-9\]\[a-fA-F0-9\])/pack("C", hex($1))/eg;
$value =\~ s/\[\\;\\|\\\\ \]/ /ig;
push(@values,$value); push(@names,$name);
$input{$name} = $value;
}
open (ORGDB,"$db_file");
@data=<ORGDB>;
close (ORGDB);
if ($input{'id'}){&get_status;}
else {&error;}
sub get_status {
foreach $line (@data) {
($db_id,$db_status) = split(/\|/, $line);
if ($db_id == $input{'id'}){
print "Content-type: text/html\n\n";
#Ändra den här print-satsen så den passar dig
print "$db_status nedladdningar";
$id_found = "yes";
}
}
if ($id_found ne "yes"){&error;}
}
sub error {
print "Content-type: text/html\n\n";
print "<FONT FACE=\"Verdana\" SIZE=\"2\">\n";
print "<B>FEL</B><BR>";
print "Scriptet har inte anropats korrekt eller så kunde ingen data med det ID du angett hittas.";
print "</FONT>";
}
Lycka till!
------------------
--------
Joakim Johansson
Vice VD / tekniker
Stereo Communication
