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; |
Partager