Why is there only one column in the output file?

[perllearner007]

Hi there PerlMonks, Here is my code:

#!usr/bin/perl -w
use strict;

# open the file that has to be read
my $input = "Users/Dektop/file123.txt";
die "Cannot open $input\n" unless (open(IN, $input));

#open a new file which has to be made
open (my $out, ">outfile123.txt");

#In the while loop, put the columns that have to be printed in the new
+ file.
while(<IN>){
my @fields = split /\t/,$_;
    
    my $ID  = $fields[0];
    
        my $WEIGHTED_SUM = $fields[9];
    #print the columns     
    {
        print $out "$ID\ $WEIGHTED_SUM \n";
        }
        }
        
        #close the filehandles
close($input);
close($out);

The output file is extracting the ID column but for the WEIGHTED_SUM , I get the following error, Use of uninitialized value $WEIGHTED_SUM in concatenation (.) or string at sample1.pl line 20, <IN> line 2148788.

Can some tell me what is going on and why I am not able to extract both the columns? Is there a way to fix it?

[toolic]

One likely reason for the warning message is that line 2148788 of your input file has fewer than 10 tab-separated columns. $fields[9] is probably undefined.

You could open your input file in an editor, go to line 2148788, and check if there are really 10 columns. Or, something in the Basic debugging checklist could help:

warn scalar(@fields), " $.\n";

Updated with code example.

[perllearner007]

Thank you so much it is sorted!

[ryber]

toolic is correct.

you probably want something like this

while(<IN>){
     my $line = $_;

     unless ($line =~ /\S/) {
          print STDERR "Skipping line $. (blank)\n";
          next;
     }

     my @fields = split /\t/,$line;

     unless (@fields >= 10) {
          print STDERR "Error: line $.: less than 10 fields: $_\n";
     }

.
.
.

[jwkrahn]

you probably want something like this

while(<IN>){
    my $line = $_;



No.    Nobody wants something like that.

Why store the same value in two different variables when you only use one variable inside the loop.

Perhaps you meant:

while ( my $line = <IN> ) {

[ryber]

jwkrahn, you miss the point.

The main point was to check for and weed out blank lines and those which do not contain enough fields. I agree it would be better to assign the $line var in the while statement as well; I wrote it that way to change the OP's code as little as possible and focus on the input validation pieces.