Hi dear perl users, I have a file like this:
..
31563;qualified;REMUS;IPR;05/11/2002;REMUS 6.30;-Bouygtel/REMUS/Instance -
Paiement/Rechargements/ppc_tools;W_REM_QUA
31617;standby;DIAMANT-SIEBEL;IPR;06/11/2002;DIASBL
1.1;-Bouygtel/DIAMANT-SIEBEL;W_DIASBL_MOE
PROTECTED]
Sent: 18 July 2003 10:04
To: [EMAIL PROTECTED]
Subject: RE: remove carriage return
Hi dear perl users, I have a file like this:
..
31563;qualified;REMUS;IPR;05/11/2002;REMUS
6.30;-Bouygtel/REMUS/Instance -
Paiement/Rechargements/ppc_tools;W_REM_QUA
31617;standby
Richard-qswi266 [mailto:[EMAIL PROTECTED]
Date: vendredi 18 juillet 2003 13:01
: SII - GONCALVES, Jorge; [EMAIL PROTECTED]
Objet: RE: remove carriage return
use strict;
use warnings;
my $input_file = input.txt;
open (INFILE, $input_file) or die Can't open $input_file! $!\n;
my @input = INFILE
PROTECTED]
Objet : RE: remove carriage return
Hi dear perl users, I have a file like this:
..
31563;qualified;REMUS;IPR;05/11/2002;REMUS 6.30;-Bouygtel/REMUS/Instance -
Paiement/Rechargements/ppc_tools;W_REM_QUA
31617;standby;DIAMANT-SIEBEL;IPR;06/11/2002;DIASBL
1.1;-Bouygtel/DIAMANT-SIEBEL
]
Subject: RE: remove carriage return
Thanks it works but it deletes the line which not begins with
a number, i wanted to put what is not beginning with a number
and at the beginning of a new line to the continuation of the
preceding line. I hope you understand what i want to do.
Thanks