perlquestion
zing
Hi all ,
I have this data file
<p>b c a</p>
<p>a c d</p>
<p>d e b</p>
And this code reads this data file into a 2d array.
<code>
use strict;
use warnings;
use Data::Dumper;
# use PDL;
my @S;
while (<>) {
push @S, [ split ];
}
print "-----TRIPLETS-------\n";
print Dumper \@S;
print "\n$S[0][1]\n";
# Find the number of vertices
my @L;
for my $i ( 0 .. $#S ) {
for my $j ( 0 .. $#{ $S[$i] } ) {
#print "elt $i $j is $S[$i][$j]\n";
push (@L,$S[$i][$j]);
}
}</code>
Now what I want is another array which reads only first two columns of the array @S.
<p>b c </p>
<p>a c </p>
<p>d e </p>