Retour à Forum de programmation

syntax error at. / friends.cgi ligne 31, près de "elsif"

  • Belinda
  • Born
  • Born
  • No Avatar
  • Inscription: Mar 02, 2004
  • Messages: 2
  • Status: Offline

Message Mars 2nd, 2004, 4:21 pm

Salut tous;
Ive rying pour trouver l'erreur dans mon codage mais je ne peux pas.

Quelqu'un peut-il voir ce qui im mal faire
Je appricate it.Here est mon codage
Tels sont les messages d'erreur qui Im réception

Erreur de syntaxe à la ligne. / friends.cgi 31, près de "elsif"
Erreur de syntaxe à la ligne. / friends.cgi 57, near ")"
***********
Code: [ Select ]
#!/usr/bin/perl -w

use CGI qw/:standard/;

#print all headers
print header();
print start_html ( "Who is your friend?" );
#Display database content in case of starighforward GET
#if (request_method() eq "GET")
{
    open FRIENDS ,"friends.dat";
    print "<h3>These are my friends:</h3>\n";
    print"<table> \n " ;
    while ( <FRIENDS> )
    {
    chomp ;
    @fields = split / \ | / ;
    
    #Each record will be a self-contained form used for updating records
    print qq~\t<tr>\n~;
    print qq~\t\t<td><form method="POST" action="/cgi-bin/firends.cgi"> \n~ ;
    print qq~\t\t\t$fields[1] - $fields[2]\n~ ;    
    print qq~\t\t<td><input type="submit" value="Change" name="submit">~;
    print qq~<input type="hidden" name="key" value="$fields[0]">\n~;
    print qq~</form> \n~;
}
print "</table> \n";
}

#This request is an update is in progress
elsif (request_method() eq "POST")
{
    if (param('submit') eq "Change" )
    {
        open FRIENDS,"friends.dat";
        
        print "<h3>Changing record </h3>";
        print qq~<form method="POST" action="/cgi-bin/friends.cgi"> \ n~;
        while (<FRIENDS>)
        {
            @fields = split / \ | / ;
        
            #This tries to locate the desired record
            if ($fields[0] eq param('key'))
            {
            #print the chosen record in editable text boxes
            #everything except the product ID number is editable
            print qq~Name:<input type="text" name="name" value=$fields[1]" ><br>\n~;
            print qq~Phone: <input type="text" name="phone" value=$fields[2]" ><br>\n~;    
            print qq~<input type="hidden" name="key" value="$fields[0]" ><br>\n~;
            print qq~<input type="submit" name="submit" value="Save" > \n~;
            
            last;
            }
        }
        print "</form> \n" ;
    }
    else
    {
        #Open the database for exclusive read and write access
        open FRIENDS , " + <friends.dat" ;
        flock (FRIENDS,2);

        #Create a temporary file for updates and lock it
        open TEMP,"temp.dat";
        Flock (TEMP,2);

        while (<FRIENDS>)
        {
            @fields = split / \ | / ;
            
            #Create a temproray image of the databse with the updated record
            if ($fields[0] eq param('key'))
            {
                #Replace the edited record with the updated content
                print TEMP param( 'key' ) .  " | ". param( 'name' ) . " | " . param (
'phone' ) . "\n";
            }
            else
            {
                #All "other" records are processed unchanged
                print TEMP $_;
            }
        }
        #Overwrite the previous database with the updated version
        unlink "friends.dat";
        rename "temp.dat", "friends.dat";

        print"<h3>information saved!</h3>";

        close TEMP;
    }
}

#finish-up and cleanup
print end_html( );
close FRIENDS;
  1. #!/usr/bin/perl -w
  3. use CGI qw/:standard/;
  5. #print all headers
  6. print header();
  7. print start_html ( "Who is your friend?" );
  8. #Display database content in case of starighforward GET
  9. #if (request_method() eq "GET")
  10. {
  11.     open FRIENDS ,"friends.dat";
  12.     print "<h3>These are my friends:</h3>\n";
  13.     print"<table> \n " ;
  14.     while ( <FRIENDS> )
  15.     {
  16.     chomp ;
  17.     @fields = split / \ | / ;
  18.     
  19.     #Each record will be a self-contained form used for updating records
  20.     print qq~\t<tr>\n~;
  21.     print qq~\t\t<td><form method="POST" action="/cgi-bin/firends.cgi"> \n~ ;
  22.     print qq~\t\t\t$fields[1] - $fields[2]\n~ ;    
  23.     print qq~\t\t<td><input type="submit" value="Change" name="submit">~;
  24.     print qq~<input type="hidden" name="key" value="$fields[0]">\n~;
  25.     print qq~</form> \n~;
  26. }
  27. print "</table> \n";
  28. }
  30. #This request is an update is in progress
  31. elsif (request_method() eq "POST")
  32. {
  33.     if (param('submit') eq "Change" )
  34.     {
  35.         open FRIENDS,"friends.dat";
  36.         
  37.         print "<h3>Changing record </h3>";
  38.         print qq~<form method="POST" action="/cgi-bin/friends.cgi"> \ n~;
  39.         while (<FRIENDS>)
  40.         {
  41.             @fields = split / \ | / ;
  42.         
  43.             #This tries to locate the desired record
  44.             if ($fields[0] eq param('key'))
  45.             {
  46.             #print the chosen record in editable text boxes
  47.             #everything except the product ID number is editable
  48.             print qq~Name:<input type="text" name="name" value=$fields[1]" ><br>\n~;
  49.             print qq~Phone: <input type="text" name="phone" value=$fields[2]" ><br>\n~;    
  50.             print qq~<input type="hidden" name="key" value="$fields[0]" ><br>\n~;
  51.             print qq~<input type="submit" name="submit" value="Save" > \n~;
  52.             
  53.             last;
  54.             }
  55.         }
  56.         print "</form> \n" ;
  57.     }
  58.     else
  59.     {
  60.         #Open the database for exclusive read and write access
  61.         open FRIENDS , " + <friends.dat" ;
  62.         flock (FRIENDS,2);
  64.         #Create a temporary file for updates and lock it
  65.         open TEMP,"temp.dat";
  66.         Flock (TEMP,2);
  68.         while (<FRIENDS>)
  69.         {
  70.             @fields = split / \ | / ;
  71.             
  72.             #Create a temproray image of the databse with the updated record
  73.             if ($fields[0] eq param('key'))
  74.             {
  75.                 #Replace the edited record with the updated content
  76.                 print TEMP param( 'key' ) .  " | ". param( 'name' ) . " | " . param (
  77. 'phone' ) . "\n";
  78.             }
  79.             else
  80.             {
  81.                 #All "other" records are processed unchanged
  82.                 print TEMP $_;
  83.             }
  84.         }
  85.         #Overwrite the previous database with the updated version
  86.         unlink "friends.dat";
  87.         rename "temp.dat", "friends.dat";
  89.         print"<h3>information saved!</h3>";
  91.         close TEMP;
  92.     }
  93. }
  95. #finish-up and cleanup
  96. print end_html( );
  97. close FRIENDS;
  • Anonymous
  • Bot
  • No Avatar
  • Inscription: 25 Feb 2008
  • Messages: ?
  • Loc: Ozzuland
  • Status: Online

Message Mars 2nd, 2004, 4:21 pm

  • RichB
  • Guru
  • Guru
  • Avatar de l’utilisateur
  • Inscription: Mai 17, 2003
  • Messages: 1121
  • Loc: Boston
  • Status: Offline

Message Mars 2nd, 2004, 4:34 pm

Je ne sais pas vraiment perl, donc je n'ai pas regardé de près au code, mais il semble que vous avez un symbole de commentaire ( #) Avant que le cas sur la ligne 10.
Free Programming Resources
  • ATNO/TW
  • Super Moderator
  • Super Moderator
  • Avatar de l’utilisateur
  • Inscription: Mai 28, 2003
  • Messages: 23404
  • Loc: Woodbridge VA
  • Status: Offline

Message Mars 2nd, 2004, 5:01 pm

Im pensant que la première ligne de référence est le principal coupable:

Code: [ Select ]
elsif (request_method() eq "POST")


qui ne devrait pas être:
Code: [ Select ]
else if (request_method() eq "POST")


Im not a wiz à Perl non plus, mais que, tout ne semble pas correcte.


En tant que Belinda Sidenote - s'il vous plaît utiliser les portions de code entre parenthèses lors de la publication du code. 9 fois sur dix, il sera à vis de votre poste si vous n'avez pas.
"There's no place like 127.0.0.1 except for ::1."
Alexandria Networks. Leader in IT consulting for associations/non-profits, and small to medium sized businesses around the northern Virginia and Washington D.C. metro area.
  • RichB
  • Guru
  • Guru
  • Avatar de l’utilisateur
  • Inscription: Mai 17, 2003
  • Messages: 1121
  • Loc: Boston
  • Status: Offline

Message Mars 2nd, 2004, 5:07 pm

Im pretty sure elsif est valable en perl, mais si le premier cas est caché par une observation puis l'erreur peut être signalé lorsque la elsif a été vu depuis qu'il ne serait pas le cas précédent.
Free Programming Resources
  • _Leo_
  • Proficient
  • Proficient
  • Avatar de l’utilisateur
  • Inscription: Fév 17, 2004
  • Messages: 279
  • Loc: Buenos Aires, Argentina
  • Status: Offline

Message Mars 2nd, 2004, 6:07 pm

Eh bien, vous avez la ligne " #if (REQUEST_METHOD () eq "GET") ", a commenté, puis le" elsif "état n'a pas de sens. Vous devez le changer de" si "ou vous devez décommenter l'partir" si "condition.

Vous devez essayer d'utiliser l'indentation précis dans le texte plus facile de trouver des erreurs.
  • _Leo_
  • Proficient
  • Proficient
  • Avatar de l’utilisateur
  • Inscription: Fév 17, 2004
  • Messages: 279
  • Loc: Buenos Aires, Argentina
  • Status: Offline

Message Mars 2nd, 2004, 6:13 pm

Code: [ Select ]
#!/usr/bin/perl -w

use CGI qw/:standard/;

#print all headers
print header();
print start_html ( "Who is your friend?" );
#Display database content in case of starighforward GET
if (request_method() eq "GET") {
  open FRIENDS ,"friends.dat";
  print "<h3>These are my friends:</h3>\n";
  print"<table> \n " ;
  while ( <FRIENDS> ) {
      chomp ;
      @fields = split / \ | / ;
     
      #Each record will be a self-contained form used for updating records
      print qq~\t<tr>\n~;
      print qq~\t\t<td><form method="POST" action="/cgi-bin/firends.cgi"> \n~ ;
      print qq~\t\t\t$fields[1] - $fields[2]\n~ ; 
      print qq~\t\t<td><input type="submit" value="Change" name="submit">~;
      print qq~<input type="hidden" name="key" value="$fields[0]">\n~;
      print qq~</form> \n~;
    }
    print "</table> \n";
}
elsif (request_method() eq "POST") {
  if (param('submit') eq "Change" ) {
   open FRIENDS,"friends.dat";
   
   print "<h3>Changing record </h3>";
   print qq~<form method="POST" action="/cgi-bin/friends.cgi"> \ n~;
   while (<FRIENDS>) {
     @fields = split / \ | / ;
   
     #This tries to locate the desired record
     if ($fields[0] eq param('key')) {
         #print the chosen record in editable text boxes
         #everything except the product ID number is editable
         print qq~Name:<input type="text" name="name" value=$fields[1]" ><br>\n~;
         print qq~Phone: <input type="text" name="phone" value=$fields[2]" ><br>\n~; 
         print qq~<input type="hidden" name="key" value="$fields[0]" ><br>\n~;
         print qq~<input type="submit" name="submit" value="Save" > \n~;
        
         last;
     }
   }
   print "</form> \n" ;
  }
  else {
   #Open the database for exclusive read and write access
   open FRIENDS , " + <friends.dat" ;
   flock (FRIENDS,2);

   #Create a temporary file for updates and lock it
   open TEMP,"temp.dat";
   Flock (TEMP,2);

   while (<FRIENDS>) {
     @fields = split / \ | / ;
    
     #Create a temproray image of the databse with the updated record
     if ($fields[0] eq param('key')) {
      #Replace the edited record with the updated content
      print TEMP param( 'key' ) .  " | ". param( 'name' ) . " | " . param ( 'phone' ) . "\n";
     }
     else {
      #All "other" records are processed unchanged
      print TEMP $_;
     }
   }
   #Overwrite the previous database with the updated version
   unlink "friends.dat";
   rename "temp.dat", "friends.dat";

   print"<h3>information saved!</h3>";

   close TEMP;
  }
}

#finish-up and cleanup
print end_html( );
close FRIENDS;
  1. #!/usr/bin/perl -w
  3. use CGI qw/:standard/;
  5. #print all headers
  6. print header();
  7. print start_html ( "Who is your friend?" );
  8. #Display database content in case of starighforward GET
  9. if (request_method() eq "GET") {
  10.   open FRIENDS ,"friends.dat";
  11.   print "<h3>These are my friends:</h3>\n";
  12.   print"<table> \n " ;
  13.   while ( <FRIENDS> ) {
  14.       chomp ;
  15.       @fields = split / \ | / ;
  16.      
  17.       #Each record will be a self-contained form used for updating records
  18.       print qq~\t<tr>\n~;
  19.       print qq~\t\t<td><form method="POST" action="/cgi-bin/firends.cgi"> \n~ ;
  20.       print qq~\t\t\t$fields[1] - $fields[2]\n~ ; 
  21.       print qq~\t\t<td><input type="submit" value="Change" name="submit">~;
  22.       print qq~<input type="hidden" name="key" value="$fields[0]">\n~;
  23.       print qq~</form> \n~;
  24.     }
  25.     print "</table> \n";
  26. }
  27. elsif (request_method() eq "POST") {
  28.   if (param('submit') eq "Change" ) {
  29.    open FRIENDS,"friends.dat";
  30.    
  31.    print "<h3>Changing record </h3>";
  32.    print qq~<form method="POST" action="/cgi-bin/friends.cgi"> \ n~;
  33.    while (<FRIENDS>) {
  34.      @fields = split / \ | / ;
  35.    
  36.      #This tries to locate the desired record
  37.      if ($fields[0] eq param('key')) {
  38.          #print the chosen record in editable text boxes
  39.          #everything except the product ID number is editable
  40.          print qq~Name:<input type="text" name="name" value=$fields[1]" ><br>\n~;
  41.          print qq~Phone: <input type="text" name="phone" value=$fields[2]" ><br>\n~; 
  42.          print qq~<input type="hidden" name="key" value="$fields[0]" ><br>\n~;
  43.          print qq~<input type="submit" name="submit" value="Save" > \n~;
  44.         
  45.          last;
  46.      }
  47.    }
  48.    print "</form> \n" ;
  49.   }
  50.   else {
  51.    #Open the database for exclusive read and write access
  52.    open FRIENDS , " + <friends.dat" ;
  53.    flock (FRIENDS,2);
  55.    #Create a temporary file for updates and lock it
  56.    open TEMP,"temp.dat";
  57.    Flock (TEMP,2);
  59.    while (<FRIENDS>) {
  60.      @fields = split / \ | / ;
  61.     
  62.      #Create a temproray image of the databse with the updated record
  63.      if ($fields[0] eq param('key')) {
  64.       #Replace the edited record with the updated content
  65.       print TEMP param( 'key' ) .  " | ". param( 'name' ) . " | " . param ( 'phone' ) . "\n";
  66.      }
  67.      else {
  68.       #All "other" records are processed unchanged
  69.       print TEMP $_;
  70.      }
  71.    }
  72.    #Overwrite the previous database with the updated version
  73.    unlink "friends.dat";
  74.    rename "temp.dat", "friends.dat";
  76.    print"<h3>information saved!</h3>";
  78.    close TEMP;
  79.   }
  80. }
  82. #finish-up and cleanup
  83. print end_html( );
  84. close FRIENDS;
  • phpSelectah
  • Student
  • Student
  • Avatar de l’utilisateur
  • Inscription: Fév 11, 2004
  • Messages: 97
  • Status: Offline

Message Mars 2nd, 2004, 8:03 pm

perles absence d'un interrupteur fonction conduit à un code illisible encore, lol.


:lol:
  • nuclei
  • Graduate
  • Graduate
  • Avatar de l’utilisateur
  • Inscription: Sep 12, 2003
  • Messages: 147
  • Loc: On a mountain
  • Status: Offline

Message Mars 2nd, 2004, 9:58 pm

il est parfaitement lisible. son erreur est de cette ligne

#if (REQUEST_METHOD () eq "GET")


il ne peut pas appeler un elsif s'il utilise le départ si

assez simple pour n'importe qui qui sait plus que php :P
  • phpSelectah
  • Student
  • Student
  • Avatar de l’utilisateur
  • Inscription: Fév 11, 2004
  • Messages: 97
  • Status: Offline

Message Mars 2nd, 2004, 10:16 pm

nuclei a écrit:
il est parfaitement lisible. son erreur est de cette ligne

#if (REQUEST_METHOD () eq "GET")


il ne peut pas appeler un elsif s'il utilise le départ si

assez simple pour n'importe qui qui sait plus que php :P


LOL!


Je ne voulais pas dire qu'il était complètement illisible, il pourrait regarder beaucoup mieux avec "switch", plus linéaire.

google a écrit:
perl est internet yiddish



En sh, je peux comprendre l'aide de if / else / elsif jusqu'à l'éternité, mais perl vraiment fait une erreur de l'exclusion de la construction d'un passage de son stock installer.
;)

Je perl programme à temps plein, de sorte que vous mai note que certains de mes commentaires à ce sujet ne sont kinda.... je ne sais quois puce assed ;)
  • nuclei
  • Graduate
  • Graduate
  • Avatar de l’utilisateur
  • Inscription: Sep 12, 2003
  • Messages: 147
  • Loc: On a mountain
  • Status: Offline

Message Mars 2nd, 2004, 10:19 pm

phpSelectah a écrit:
nuclei a écrit:
il est parfaitement lisible. son erreur est de cette ligne

#if (REQUEST_METHOD () eq "GET")


il ne peut pas appeler un elsif s'il utilise le départ si

assez simple pour n'importe qui qui sait plus que php :P


LOL!


Je ne voulais pas dire qu'il était complètement illisible, il pourrait regarder beaucoup mieux avec "switch", plus linéaire.

google a écrit:
perl est internet yiddish



En sh, je peux comprendre l'aide de if / else / elsif jusqu'à l'éternité, mais perl vraiment fait une erreur de l'exclusion de la construction d'un passage de son stock installer.
;)

Je perl programme à temps plein, de sorte que vous mai note que certains de mes commentaires à ce sujet ne sont kinda.... je ne sais quois puce assed ;)


malheureusement, il ne faut I. Je suis en train de sortir de codage tho :P

Page 1 sur 1

Afficher de l'information

  • Total des messages de ce sujet: 10 messages
  • Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 170 invités
  • Vous ne pouvez pas poster de nouveaux sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas éditer vos messages
  • Vous ne pouvez pas supprimer vos messages
  • Vous ne pouvez pas joindre des fichiers
 
 

© 2011 Unmelted, LLC. Ozzu® est une marque déposée de Unmelted, LLC