Data extraction from netlist line by line using perl

Question

My question is regarding extraction of data from a file in Perl. In the attached file there is standard format of net list. After running the program I got the elements into an array @name_gate but when I tried to print @name_gate[0] instead of the 1st element, I got the whole first column, similarly for @name_gate[1], the second column.

So the problem is I have again got a string in @name_gate[0] which I want to access element by element.

my @ind;
my $index=0;
my $file = 'netlist.txt';
my $count=0;
my @name_gate;
open my $fh,'<',$file or die "could not open the file '$file' $!";

while (my $line = <$fh>) 
     {
         chomp $line;
         @name_gate = split (/ /,$line); #transforming string into arrays

         print "@name_gate[0]";
     }

The above code prints the whole column 1 2 3 4 up to 14. How can I extract a single element like 1 or 2 or 14 etc. Here is the current output

Answer 1

@name_gate[0] it is not a main problem. Because with warnings (Scalar value @ary[0] better written as $ary[0] at) it will give the result.

I thought your problem is in split. Because your input file having multiple spaces or tab separated. So please include \s+ or better use \t. You will get the result.

Then always put use warnings and use strict in top of the program,

while (my $line = <$fh>) 
{
     chomp $line;

      #my @name_gate = split (/ /,$line); #transforming string into arrays

      my @name_gate = split (/\s+/,$line);

      #print "@name_gate[0]\n";

      print "$name_gate[0]\n";

}