Discussion :

[mokazo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

????

[Jiheme44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 : $!";

[mokazo]

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

[Jiheme44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 : $!";

[mokazo]

Toujours le meme soucis ça retourne a la ligne

[Gardyen]

en mode bourrin à la ligne 14

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[6ril23]

Sinon tu peu essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[mokazo]

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()

[6ril23]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

print "\n";

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print F2 "\n";

[Gardyen]

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,

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