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

????