Re^2: text processing

[DAVERN]

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

[InfiniteSilence]

Your focus appears to be all wrong. If you are looking for something specific in a file why not just select that thing?

my @output = ();
while(<DATA>){

    next unless (m/DATA/);
    my $line = $_;
    while($line=~m/(DATA\d+)/g){
    push @output,$1;
    }
}
print join qq|,|, map {qq~xxx=$_~} @output;
print qq|;\n|;

1;

__END__
TABLE NAME

HEAD0 HEAD1 HEAD2

DATA00 DATA10 DATA20

DATA01 DATA11 DATA21

END

Produces...

xxx=DATA00,xxx=DATA10,xxx=DATA20,xxx=DATA01,xxx=DATA11,xxx=DATA21;