removing \n with for each

[MynameisAchint]

hey

I have written this code to extract columns from a csv file , it is working fine , but in last line there is a \n which I need to remove . please tell me where to chomp or any other way to remove this \n

sub column_segregation_Spec_values   columns of csv file
{
    $column_number=$_[0];     c
    my $size;
    my @array_A1=();
    my @array_A2=();
    my $column_separator = ",";              $column_number--;        
+         
       my $file="Working_On.csv";     
    open(FILE,"<","$file");           
    my @lines=<FILE>;                
        close FILE;

    foreach my $line (@lines)
   {     
    my @columns = split(/$column_separator/,"$line");      
    
     push @array_A2, $columns[$column_number];
    }
   return (@array_A2);

[choroba]

If you want to remove the newline from all the lines in the array, use

chomp @lines;

If you want to delete the newline only from the last line, use

chomp $lines[-1];

[Happy-the-monk]

my @lines=<FILE>;

chomp(my @lines=<FILE>); # should remove your newlines.

Cheers, Sören

[davido]

I have written this code to extract columns from a csv file ,

Arrgghhhhhh! Noooooooooo! Text::CSV

(Whew, that feels better.)

Unless your goal is to learn how to write a CSV parser, don't write code to parse CSV files; it's been done (correctly) on CPAN.

[space_monk]

Why bother extracting columns from a CSV file yourself when people have done it before? See Text::CSV_XS and its incredibly long list of relations.