print two arrays into a tsv format

rocketperl has asked for the wisdom of the Perl Monks concerning the following question:

Hi perl saviors! Im trying to print elements from two different arrays to my output file using \t. (i want the two arrays to look like tsv in my output file). but my second element automatically prints in the second line. Using chomp did not help. Please tell me if there is any other way i could use to print the data like tsv.

for ($i=0;$i<(scalar(@np));$i++)
{
    if ($gap[$index]>=-200)
    {
        print OFILE "$coordinate[$index]\t$np[$index]\n";
    }
    else
    {
        print OFILE "End of block $index.\n";
        print OFILE "$coordinate[$index]\n";
        print OFILE "Start of block $index.\n";
    }
    
$index++;    
}
[download]

my current output looks like this below

rather I want it to look like this

4775792 p

4775842    p

4775852    p

4775902    p

4775952    p

4776002    n
[download]

please help me with this. i have trying so hard to figure out this!

Comment on print two arrays into a tsv format Select or Download Code

Replies are listed 'Best First'.
Re: print two arrays into a tsv format by hdb (Monsignor) on Jul 03, 2013 at 06:20 UTC
First you should inspect your array `@coordinate` whether or not there are newlines in the elements. This can best be done with `Data::Dumper`: `use Data::Dumper; ... print Dumper \@coordinate;` [download] If this confirms that there are newlines, you can either remove them from the elements of `@coordinate` using `chomp @coordinate;` or you need to fix it at the time of populating `@coordinate`. The latter would be preferred but you have not posted that piece of code.	[reply] [d/l] [select]
Re^2: print two arrays into a tsv format by rocketperl (Sexton) on Jul 03, 2013 at 06:24 UTC
chomp @coordinate worked! thank you so much.	[reply]
Re^3: print two arrays into a tsv format by hdb (Monsignor) on Jul 03, 2013 at 06:27 UTC
You have chosen to cure the symptoms not the disease...	[reply] [d/l]
Re^4: print two arrays into a tsv format by rocketperl (Sexton) on Jul 03, 2013 at 08:30 UTC
Re: print two arrays into a tsv format by Anonymous Monk on Jul 03, 2013 at 06:24 UTC
please help me with this. i have trying so hard to figure out this! Use Basic debugging checklist and Dumper() all the variable in play , namely the stuff you're printing ( `$coordinate[$index] $np[$index]` ) then do something to one of them to remove stuff you don't want ( see perlintro#Simple substitution or search remove unwanted)	[reply] [d/l]