Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1373 connectés 

  FORUM HardWare.fr
  Programmation

  [Perl]Comment mettre une ligne en commentaire

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Perl]Comment mettre une ligne en commentaire

n°107021
sorg
trop sur HFR depuis 2001
Posté le 02-03-2002 à 15:09:48  profilanswer
 

Salut, j'y connais rien en perl mais j'aimerais mettre des lignes en commentaires dans un script de config d'un serveur sous linux...
Est-ce bien le Dièse # qui sert à ca ?

mood
Publicité
Posté le 02-03-2002 à 15:09:48  profilanswer
 

n°107022
manegarm
Posté le 02-03-2002 à 15:10:45  profilanswer
 

oui

n°107026
sorg
trop sur HFR depuis 2001
Posté le 02-03-2002 à 15:16:26  profilanswer
 

Salut , merci de ta confirmation.
Dans le script suivant j'aimerai qu'il m'ignore les tests sur la validité de LEFTNEXTHOP, LEFT, RIGHT et RIGHTNEXTHOP... comment mettre ses lignes en commentaires car quand je met un # il me met une erreur 500 lors de l'affichage de la page
merci
 
 
#!/usr/bin/perl
#
# SmoothWall CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) The SmoothWall Team
#
# $Id: vpnconfig.dat,v 1.3.2.1 2002/01/20 11:43:42 eanna Exp $
#
 
require '/var/ipcop/header.pl';
use File::Copy;
 
my %cgiparams;
my $filename = "${swroot}/vpn/config";
 
$cgiparams{'ENABLED'} = 'off';
# wantfile required for import, sadly it can only be enabled globally...
&getcgihash(\%cgiparams, {'wantfile' => 1, 'filevar' => 'FH'});
 
my $errormessage = '';
 
if ($cgiparams{'ACTION'} eq $tr{'add'})
{
 unless ($cgiparams{'NAME'} =~ /^[a-zA-Z]+$/) {
  $errormessage = $tr{'name must only contain characters'}; }
 unless (&validip($cgiparams{'LEFT'})) {  
  $errormessage = $tr{'left ip is invalid'}; }
 unless (&validip($cgiparams{'LEFTNEXTHOP'})) {  
  $errormessage = $tr{'left next hop ip is invalid'}; }
 unless (&validipandmask($cgiparams{'LEFT_SUBNET'})) {
  $errormessage = $tr{'left subnet is invalid'}; }
 unless (&validip($cgiparams{'RIGHT'})) {  
  $errormessage = $tr{'right ip is invalid'}; }
 unless (&validip($cgiparams{'RIGHTNEXTHOP'})) {
  $errormessage = $tr{'right next hop ip is invalid'}; }
 unless (&validipandmask($cgiparams{'RIGHT_SUBNET'})) {
  $errormessage = $tr{'right subnet is invalid'}; }
 
 open(FILE, $filename) or die 'Unable to open config file.';
 my @current = <FILE>;
 close(FILE);
 unless ($errormessage)
 {
  open(FILE,">>$filename" ) or die 'Unable to open config file.';
  flock FILE, 2;
  print FILE "$cgiparams{'NAME'},$cgiparams{'
;LEFT'},$cgiparams{'LEFTNEXTHOP'
},$cgiparams{'LEFT_SUBNET'},$cgiparams
{'RIGHT'},$cgiparams{'RIGHTNEXTH
OP'},$cgiparams{'RIGHT_SUBNET'},
$cgiparams{'SECRET'},$cgiparams{'
;ENABLED'}\n";
  close(FILE);
  undef %cgiparams;
  &writeipsecfiles();
 }
}

n°107027
manegarm
Posté le 02-03-2002 à 15:18:13  profilanswer
 

N'oublie d'enlever les { } a cotes des lignes suivantes

n°107131
sorg
trop sur HFR depuis 2001
Posté le 02-03-2002 à 22:20:11  profilanswer
 

bof... ca change rien...
Erreur 500 interne au serveur

n°107186
Krueger
tout salaire demande dutravail
Posté le 03-03-2002 à 13:29:04  profilanswer
 

Sous Apache? Que dit le log de l'erreur?


---------------
"Colère et intolérance sont les ennemis d'une bonne compréhension." Gandhi
n°107257
Tetragramm​aton IHVH
dieu unique =&gt; pensée unique
Posté le 03-03-2002 à 17:08:28  profilanswer
 

Essaie avec #!/usr/bin/perl -w
 
Tu auras le détail de l'erreur
 
HTH


---------------
"Dieu a exploité tous nos complexes d'infériorité, en commençant par notre incapacité de croire à notre propre divinité." - Emil Michel Cioran

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [Perl]Comment mettre une ligne en commentaire

 

Sujets relatifs
avenir PERL ?Caractère de fin de ligne sous Unix ?
'tain c pourit freepascal on peut pas mettre de string dans un case of[Perl] passer des parametres par reference
Phpmyadmin : il ne m'insère que la première ligne de mon csv..[Perl]: [CGI]: récupérer des groupes de paramètres
Perl-Gtk et memoire[MFC] CListCtrl : mettre une image à coté du texte...
[Delphi] Mettre une fenetre au premier planDéveloppement d'un Jeu De Rôle en ligne, ca vous intéresse ?
Plus de sujets relatifs à : [Perl]Comment mettre une ligne en commentaire


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR