PDA

Visualizza la versione completa : contatore cgi


ERdemone
05-10-2004, 19:04
Salve a tutti ho un problema vorrei mettere un contatore cgi nella mia pagina non so come caricarlo ho provato in vari modi ma non ci riesco
e un semplice contatore di testo lo script si chiama cont.cgi e questo e lo script
#!/usr/bin/perl
print "Content-type: text/plain\n\n";

open (co, "contatore.txt");
@cont=<co>;
close(co);

#print @cont;
#print ": $cont[0]";
$cont[0]++;
print "$cont[0]";

open (contatore, ">contatore.txt");
print contatore "$cont[0]";
close (contatore);
exit;

c qualcuno che mi da una mano quale e la sintasi correttea per fare funzionare il contatore

Grazie a tutti quelli che mi rispondono

shishii
05-10-2004, 20:51
non ho capito come lo richiami.

tramite SSI o che altro?

ERdemone
05-10-2004, 20:59
Se intenti il richiamo del server e un web server unix io ho provato con questa sintesi ma non va e non riesco a capire dove sbaglio

shishii
06-10-2004, 21:06
per prima cosa devi scrivere:


e non


poi prova anche con

Claudio Vituzzi
08-10-2004, 14:09
Originariamente inviato da ERdemone
Salve a tutti ho un problema vorrei mettere un contatore cgi nella mia pagina non so come caricarlo ho provato in vari modi ma non ci riesco
e un semplice contatore di testo lo script si chiama cont.cgi e questo e lo script
#!/usr/bin/perl
print "Content-type: text/plain\n\n";

open (co, "contatore.txt");
@cont=<co>;
close(co);

#print @cont;
#print ": $cont[0]";
$cont[0]++;
print "$cont[0]";

open (contatore, ">contatore.txt");
print contatore "$cont[0]";
close (contatore);
exit;

c qualcuno che mi da una mano quale e la sintasi correttea per fare funzionare il contatore

Grazie a tutti quelli che mi rispondono

che cos' questa robaccia?!?! :confused:

prova questo:



#!/usr/bin/perl

use strict;
use warnings;
use CGI::Carp "fatalsToBrowser";
use Fcntl qw(:flock);

open (LEGGI, "<contatore.txt");
flock(LEGGI,1);
chomp ( my $co = <LEGGI> );
flock(LEGGI,8);
close(LEGGI);

$co ++;

open (SCRIVI, ">contatore.txt");
flock(SCRIVI,2);
print SCRIVI $co;
flock(SCRIVI,8);
close (SCRIVI);

print "content-type: text/html","\n\n";
print qq~ <html><body>$co</body></html> ~;

exit(0);


e tu ora mi chiederai...ma come lo includo nella mia pagina??

Beh...nel modo mi zozzo possibile: tramite un iframe!!!! :unz:

Spero tu sappia cos' un iframe!!

Loading