Re^2: text processing

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

Comment on Re^2: text processing

Replies are listed 'Best First'.
Re^3: text processing by InfiniteSilence (Curate) on Apr 22, 2014 at 18:27 UTC
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` [download] Produces... `xxx=DATA00,xxx=DATA10,xxx=DATA20,xxx=DATA01,xxx=DATA11,xxx=DATA21;` [download] Celebrate Intellectual Diversity	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: text processing
by InfiniteSilence (Curate) on Apr 22, 2014 at 18:27 UTC

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
[download]

xxx=DATA00,xxx=DATA10,xxx=DATA20,xxx=DATA01,xxx=DATA11,xxx=DATA21;
[download]

Celebrate Intellectual Diversity

[reply]
[d/l]
[select]