Aide svp en perl scripting

Bonjour je suis debutant en perl
j'aimerais executer un script sur mon serveur Asterisk qui me permet de generer un fichier txt comme suit :

exten=>1234,1,Answer
exten=>1234,2,AGI(../script.agi)
exten=>1234,3,Hangup()

voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#! /usr/bin/perl -w use strict; use warnings;   my $ligne; my $fich1 = "in.txt"; my $fich2 = "out.txt";   open(F1, "<$fich1") || die "Problème à l\'ouverture : $!"; open(F2, ">$fich2") || die "Problème à l\'ouverture : $!";     while ($ligne = <F1>) { print F2 "exten=>$ligne,1,Answer"; print F2 "exten=>$ligne,2,AGI(../script.agi)"; print F2 "exten=>$ligne,3,Hangup()"; print "\n";   }   close F1 || die "Problème à la fermeture : $!"; close F2 || die "Problème à la fermeture : $!";

---

resultat : a chaque fois y a un saut a la ligne

Citation:

---

exten=>1234
,1,Answer
exten=>1234
,2,AGI(../script.agi)
exten=>1234
,3,Hangup()

---

????:oops:

quand tu lis ton fichier d'entrée ligne par ligne, tu lis aussi le saut de ligne (\n à la fin de la chaine de caractère)
Tu peux le supprimer avec la focntion 'chomp()'

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#! /usr/bin/perl -w use strict; use warnings;   my $ligne; my $fich1 = "in.txt"; my $fich2 = "out.txt";   open(F1, "<$fich1") || die "Problème à l\'ouverture : $!"; open(F2, ">$fich2") || die "Problème à l\'ouverture : $!";   while ($ligne = <F1>) { chomp( $ligne ); print F2 "exten=>$ligne,1,Answer"; print F2 "exten=>$ligne,2,AGI(../camaro/go.agi)"; print F2 "exten=>$ligne,3,Hangup()"; print "\n";   }   close F1 || die "Problème à la fermeture : $!"; close F2 || die "Problème à la fermeture : $!";

---

j'ai testé ça marche pas !!

le retour a la ligne c pour la lecture des numéros qui sont dans in.txt

c'est a l’intérieur de la boucle ou y a un problème

un fichier au format dos ?
Le saut de ligne est alors code sur 2 caractères.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#! /usr/bin/perl -w use strict; use warnings;   my $ligne; my $fich1 = "in.txt"; my $fich2 = "out.txt";   open(F1, "<$fich1") || die "Problème à l\'ouverture : $!"; open(F2, ">$fich2") || die "Problème à l\'ouverture : $!";   while ($ligne = <F1>) { $ligne =~ s/\r\n//; print F2 "exten=>$ligne,1,Answer"; print F2 "exten=>$ligne,2,AGI(../camaro/go.agi)"; print F2 "exten=>$ligne,3,Hangup()"; print "\n";   }   close F1 || die "Problème à la fermeture : $!"; close F2 || die "Problème à la fermeture : $!";

---

Toujours le meme soucis ça retourne a la ligne

en mode bourrin à la ligne 14

Code:

---

$ligne =~s/[\r\n]+$//;

---

Sinon tu peu essayer avec

Code:

---

$ligne =~s/\s+$//;

---

\s équivaut à [\t\n\f\r]

Là c'est bon !!!
Pouvez vous m'expliquer un peu ce que ça vx dire" $ligne =~s/\s+$//;" !!!!!

mais aussi a la fin j'ai ajouter un print F2 "\n" mais ça marche pas

exten=>1111,1,Answer
exten=>1111,2,AGI(../script.agi)
exten=>1111,3,Hangup()
exten=>2222,1,Answer
exten=>2222,2,AGI(../script.agi)
exten=>2222,3,Hangup()
exten=>3333,1,Answer
exten=>3333,2,AGI(../script.agi)
exten=>3333,3,Hangup()

Citation:

---

Envoyé par mokazo

Là c'est bon !!!
Pouvez vous m'expliquer un peu ce que ça vx dire" $ligne =~s/\s+$//;" !!!!!

---

$ligne =~s/A/B/; -> tu dis de remplacer A par B dans $ligne
\s+$ : est l'expression régulière qui indique 1 ou plusieurs (+) tabulation, retour ligne (\s)... en fin de phrase(caractère $)

pour plus de détails regarde le fonctionnement des expressions régulières

Citation:

---

Envoyé par mokazo

mais aussi a la fin j'ai ajouter un print F2 "\n" mais ça marche pas

---

dans ton script, ligne 18 tu as mis

Code:

---

print "\n";

---

et non

Code:

---

print F2 "\n";

---

Différence à noter: la notation [\r\n]+ limite aux caractères de fin de ligne, \s+ éliminera tout espace (au sens large, incluant les retours à la ligne) à la fin de sa ligne.

comme le dit 6ril23,

Citation:

---

pour plus de détails regarde le fonctionnement des expressions régulières

---