PERL : bug dans ma condition

Question

Bonjour,
J'essaye de créer un script pour générer un espace plus ou moins grand en fonction de la taille du texte à afficher et celle de la fenêtre. Voici mon code :
#!/usr/bin/perl -s

$compt=9;                                                     #compteur de taille de lignes
open (DATA,"/home/vgtux/Bureau/Alignement millieu.conf");
while ($ligne == <DATA>){
 $compt++
 if ( $esp_req == $compt ) {     #si espacement nécessaire = ligne actuelle
 $espace=$ligne
 }
close (DATA);
$compt=9; 
return 0;      #c'est un sous programme

et voici ce que me renvoie perl : 
vgtux@vgtux-desktop:~/Bureau$ sudo perl "./Boucle espace.pl"
syntax error at ./Boucle espace.pl line 9, near ") {"
Missing right curly or square bracket at ./Boucle espace.pl line 14, at end of line
Execution of ./Boucle espace.pl aborted due to compilation errors.

mon fichier conf contient les espacements de différentes tailles avec 1 espace de plus a chaque ligne (la première ligne contient 10 espace d'ou le compt==9) 

Merci d'avance

jordane45 · Answer

Bonjour,

Le message d'erreur me semble assez clair ..... tu as des erreurs de syntaxe !
Tu as juste oublier certains caractères... comme des accolades et  des quotes... ..
Relis bien ton code.

PERL : bug dans ma condition

1 réponse

Votre réponse

Discussions similaires