Hi Limbic~Region, i did it on two separate programs on the first one i delete from the file the lines i do not use and i generate a new file, on the second program i process the rest of the text, i want to join it but do not find the way
my $output = 'output.txt';
open my $outfile, '>', $output or die "Can't write to $output: $!";
my @array = read_file('file1.log');
for (@array){
next if ($_ =~ /^\TABLE NAME|HEAD0|END|^\s+$/);
print $outfile $_ ;
Second file:
open my $IN, '<', 'output.txt' or die $!;
my @lines = <$IN>;
close $IN;
open my $OUT, '>', 'file2.txt' or die $!;
for my $line(@lines){
chomp $line;
my @data = split /\s+/, $line;
print {$OUT} "xxxxx", $data[0], "yyy", $data2,";","\n";
}
close $OUT;
I do not have idea of to do it all in only one program
BR
In reply to Re^2: text processing
by DAVERN
in thread text processing
by DAVERN
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |