editing data file

[oscar78]

Hi,
I am trying to write a perl script that will read a three-column data file and write certain lines of it in to a new data file according the ranges of values that each of these lines contain. For example, if the file looks like this:

c11 c12 c13
c21 c22 c23
...

I want to be able to select all rows j that have cj1, cj2, and cj3 within certain respective ranges.

I've attempted to do so, but I'm having trouble defining an array in terms of each column numbers. The following is what I have concocted so far from putting random pieces together, but I am missing the overall picture. Any help would be much appreciated.

#!/usr/bin/perl -w

open(INPUT, "<INPUT");
open(OUTPUT, ">OUTPUT");

@data = <INPUT>;

read(INPUT, @data($a, $b, $c));

while ( $a < '5' && $b < '5' && $c < '5')
{
print OUTPUT;
}
close(INPUT);
close(OUTPUT);

[IvaPopova]

Hi,

I think you should use an array of arrays for dealing with that kind of data.
So, you could read the file in @data (which will be a two dimensional array) like this:

my @data;
my $i=0;
while (<INPUT>){
  $data[$i++]=[split];
}
 

the processing is easy then:

for my $row(@data){
  my ($a,$b,$c)=@{$row};
  if ($a < '5' && $b < '5' && $c < '5'){
      print OUTPUT "$a $b $c\n";
  }
}
 

[KevinADC]

another suggestion:

open(INPUT, "<INPUT");
open(OUTPUT, ">OUTPUT");
while(<INPUT>){
   my ($v1, $v2, $v3) = /^\D+(\d+)\s+\D+(\d+)\s+\D+(\d+)/;
   print OUTPUT if ( $v1 < 5 && $v2 < 5 && $v3 < 5);
}
close(INPUT);
close(OUTPUT);