Perl vupros .. ?
1 отговора
67 прегледа
Perl vupros .. ?
Zdr nqmam mnogo opit s perl-a i sum napisal edin script koito na localno nivo kato go pusna i vsichko e nared no na server na dir.bg web servera vrushta 500 shte sum mnogo blagodaren ako nqkoi mi kaje kude sa mi greshkite.
Eto i koda:
#!usr/bin/perl
use CGI;
print "Content-type: text/html\n\n";
my $cgi=new CGI;
my $realpage=$cgi->param('page');
if ($realpage ne ""){
my %pages=(
aborts=>"aborts.html",
aids=>"aids.html",
deseases=>"deseases.html",
prevention=>"provention.html",
help=>"help.html",
contacts=>"contacts.html",
definitions=>"definitions.html");
open FILETO, $pages{$realpage} ;
while(<FILETO>){
print $_;};
close FILETO;
}
else {
open FILETO, "index.html";
while(<FILETO>){
print $_;}
}
open REC, ">>record.txt";
print REC "$realpage \n\n
Eto i koda:
#!usr/bin/perl
use CGI;
print "Content-type: text/html\n\n";
my $cgi=new CGI;
my $realpage=$cgi->param('page');
if ($realpage ne ""){
my %pages=(
aborts=>"aborts.html",
aids=>"aids.html",
deseases=>"deseases.html",
prevention=>"provention.html",
help=>"help.html",
contacts=>"contacts.html",
definitions=>"definitions.html");
open FILETO, $pages{$realpage} ;
while(<FILETO>){
print $_;};
close FILETO;
}
else {
open FILETO, "index.html";
while(<FILETO>){
print $_;}
}
open REC, ">>record.txt";
print REC "$realpage \n\n
в отговор на Perl Beginner
#2
Re: Perl vupros .. ?
#!usr/bin/perl
не трябва ли да е #!/usr/bin/perl ?
всъщност, виж къде е perl на сървъра..
не трябва ли да е #!/usr/bin/perl ?
всъщност, виж къде е perl на сървъра..