Bonjour à tous,

Est-il possible de simplier ce code ?

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
use strict;
use warnings;
 
my $param_facture = "param_facture.txt";
open my $PARAM, ">", "$param_facture" or die "Ouverture impossible de $param_facture $!"; 
 
my $phrase = "2		Le nom de votre société  : LGM  ";
my $phrase1 = "3                                                   F A C T U R E n°15428 ";
my $phrase2 = "11                                               Société  et/ou  Nom  du  client : TGPLUS ";
my $phrase3 = "22	N°client     : 7895123 ";
 
my $phrase4 = "2 Le nom de votre société  : Bidule ";
my $phrase5 = "3                                                    F A C T U R E n°25846 ";
my $phrase6 = "11                                                  Société  et/ou  Nom  du  client : ARL";
my $phrase7 = "22 N°client     : 1862986 ";
 
my $phrase8 = "2 Le nom de votre société  : LP";
my $phrase9 = "3                                                   F A C T U R E n°15427 ";
my $phrase10 = "11                                              Société  et/ou  Nom  du  client : ARI";
my $phrase11 = "22 N°client     : 7458123";
 
my $phrase12 = "2 Le nom de votre société  : Core";
my $phrase13 = "3                                                  F A C T U R E n°28446 ";
my $phrase14 = "11                                                  Société et/ou Nom du client : SIO ";
my $phrase15 = "22 N°client     : 18751686";
 
my $line1 = substr $phrase,0,1;
my $char1 = substr $phrase, 32,3;
my $line2 = substr $phrase1,0,1;
my $char2 = substr $phrase1,68,8;
my $line3 = substr $phrase2,0,2;
my $char3 = substr $phrase2, 85,6;
my $line4 = substr $phrase3,0,2;
my $char4 = substr $phrase3, 19, 7;
 
my $line5 = substr $phrase4,0,1;
my $char5 = substr $phrase4,31,6;
my $line6 = substr $phrase5,0,1;
my $char6 = substr $phrase5,69,8;
my $line7 = substr $phrase6,0,2;
my $char7= substr $phrase6,88,3;
my $line8 = substr $phrase7,0,2;
my $char8 = substr $phrase7,19,7;
 
my $line9 = substr $phrase8,0,1;
my $char9 = substr $phrase8,31,6;
my $line10 = substr $phrase9,0,1;
my $char10 = substr $phrase9,68,8;
my $line11 = substr $phrase10,0,2;
my $char11 = substr $phrase10,84,3;
my $line12 = substr $phrase11,0,2;
my $char12 = substr $phrase11,19,7;
 
my $line13 = substr $phrase12,0,1;
my $char13 = substr $phrase12,31,6;
my $line14 = substr $phrase13,0,1;
my $char14 = substr $phrase13,67,8;
my $line15 = substr $phrase14,0,2;
my $char15 = substr $phrase14,84,3;
my $line16 = substr $phrase15,0,2;
my $char16 = substr $phrase15,19,7;
 
print $PARAM "$line1;$char1;$line2;n$char2;$line3;$char3;$line4;$char4
			\n$line5;$char5;$line6;n$char6;$line7;$char7;$line8;$char8
			\n$line9;$char9;$line10;n$char10;$line11;$char11;$line12;$char12 
			\n$line13;$char13;$line14;n$char14;$line15;$char15;$line16;$char16\n";
 
close $PARAM;
Cordialement