I had an earlier question regarding printing data in succesive columns. It was suggested that I use printf to do this, but I'm not doing something right, though I have no clue what. When looping my program, all the data from a particular array (@qqq) prints out in a column. Fine, except after the reiterations of this loop, the column only gets longer to make one long column. It may perhaps be easier to sort things and print the columns one row at a time. I can't figure out how to do that effectively either.
The original text file looks something like this:
000217 P008 N N
000217 P009 G G
000217 P010 A A
000217 P011 A G
000217 P012 A A
000217 P013 A G
000217 P014 A A
000217 P015 A G
000217 P016 A G
times about 10,000. After joining the letters, I loop through the first 90; this 90x loop is then reiterated about 301 times, hopefully to bring me 301 separate columns side by side. Easier said than done!! Ideas anyone?
open (FILE, "brca1_prettybase.txt");
our @data='';
@data = <FILE>;
close (FILE);
$i=0;
while ($i <=300) {
#for ($i=0; $i<=89; $i++) {
# @zz=$data[$i];
@zz=splice(@data, 0, 89);
foreach $_(@zz){
$a='';
$b='';
$c='';
$d='';
($a, $b, $c, $d) = split(/[\t]/,$_);
$qq=join ('/',$c,$d);
push (@qqq, $qq);
#print "$b\n";
}
print "$a\n";
print @qqq;
$i++;
}
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.