J'ai ce que je pense que c'est une simple question: Ma cgi est dans un répertoire appelé "bin". Je veux que ce point dans le répertoire "Count" qui se trouve ici:
. . bin
. . données
Count
. . htdocs
Je suppose que cela signifie de réécrire la ligne
open (A, "<$ AB [1]");
mais je ne suis pas sûr de savoir comment faire cela. L'en-ligne de code dans les pages HTML est la suivante:
<Script language = "JavaScript"
SRC = "[page] / bin / gcount.cgi? 0 = site "> </ SCRIPT>
Le texte intégral est à la fin de ce message. J'espère que quelqu'un peut être utile.
#!/usr/local/bin/perl
# Change the line abve to match the path to perl on your server
#=========================================
# Copyright July 2002 All Rights Reserved
# By Brent Maurer.
#=========================================
# DON'T CHANGE ANYTHING AFTER THIS LINE
#=========================================
# INSTRUCTIONS FOR USE
# See accompanying README.TXT file.
use CGI;
$Arguments = $ENV{'QUERY_STRING'};
$LOCK_EX = 2;
$LOCK_UN = 8;
#print "Content-type: text/html\n\n";
print "Content-type: application/x-javascript\n";
print "Pragma: no-cache\n\n";
@ab = split(/=/, $Arguments);
$value=0;
unless (open(A, $ab[1]))
{
print "document.write(\'err\')\;";
die ("File not found $ab[1]");
}
close(A);
open(A, "<$ab[1]");
$value = <A>;
chomp($value);
$value += 1;
if ($value < $ab[0]) { $value = $ab[0]; }
#--------------------------------------------------------------------
sub comify{
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/,/g;
return scalar reverse $text;
}
#-----------------------------------------------------------
my $val = comify($value);
print "document.write(\'$val\')\;";
close(A);
open(A, ">$ab[1]");
flock (A, $LOCK_EX);
print A $value;
flock (A, $LOCK_UN);
close(A);
- #!/usr/local/bin/perl
- # Change the line abve to match the path to perl on your server
- #=========================================
- # Copyright July 2002 All Rights Reserved
- # By Brent Maurer.
- #=========================================
- # DON'T CHANGE ANYTHING AFTER THIS LINE
- #=========================================
-
- # INSTRUCTIONS FOR USE
- # See accompanying README.TXT file.
-
-
- use CGI;
- $Arguments = $ENV{'QUERY_STRING'};
- $LOCK_EX = 2;
- $LOCK_UN = 8;
-
- #print "Content-type: text/html\n\n";
- print "Content-type: application/x-javascript\n";
- print "Pragma: no-cache\n\n";
-
- @ab = split(/=/, $Arguments);
-
- $value=0;
-
- unless (open(A, $ab[1]))
- {
- print "document.write(\'err\')\;";
- die ("File not found $ab[1]");
- }
-
- close(A);
-
- open(A, "<$ab[1]");
- $value = <A>;
- chomp($value);
-
- $value += 1;
- if ($value < $ab[0]) { $value = $ab[0]; }
-
- #--------------------------------------------------------------------
- sub comify{
- my $text = reverse $_[0];
- $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/,/g;
- return scalar reverse $text;
- }
- #-----------------------------------------------------------
- my $val = comify($value);
-
- print "document.write(\'$val\')\;";
- close(A);
-
- open(A, ">$ab[1]");
- flock (A, $LOCK_EX);
- print A $value;
- flock (A, $LOCK_UN);
- close(A);
Février 11th, 2010, 7:42 pm
