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.
-Message d'origine-
De: Beckett Richa
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
31646;entered;Fraude;HLP;06/11/2002
> Hi, i have this:
>
> #perl
> use strict;
> use warnings;
>
> while ( ) {
> chomp;
> my @data = map { s/^\s+//; s/\s+$//; $_ } split /;/;
> reformat ( @data );
> }
>
>
> sub reformat {
>
> format =
> PROBTRAC: Continuous Problem Tracking System Submittal Form
> !crstatus = @<<<
Hi, i have a file like this:
.
p167 bt1sqtf4 2720 1055adelevin 2002-10-14 11:21
p130 bt1sqtf4 1753 520 aginer2002-10-14 10:33
p143 bt1sqtf4 1658 518 alchippe 2002-10-14 10:30
p144 bt1sqtf4 1777 663 amaragou 2002-10-14 10:33
p175 bt1sqtf4
Hi, i have this script to know what files have been last modified since a
hour:
my $pathname="d:/perlide";
my @files = grep time - (lstat)[9] < 3600, <$pathname/*.*>;
foreach(@files)
{
print "$_\n";
}
It works but now I wanted to know all files that are last modified since a
date and a ti