Hi,
..I thought it would be easy to just load it into a hash and then be able to reprint it to a different file but it is not working since I can't figure out how to start back up at the top of a new column...
You could do this:
use warnings;
use strict;
use Data::Dumper;
my $title =<DATA>;
my %hash;
while(<DATA>){
chomp;
my $val = substr $_,0,1;
push @{$hash{$val}},$_;
}
print Dumper \%hash;
__DATA__
a b c
0 0 d
0 1 d
0 1 d
0 2 d
0 2 d
1 0 d
1 0 d
1 1 d
1 1 d
1 2 d
1 2 d
which produces this..
$VAR1 = {
'1' => [
'1 0 d
',
'1 0 d
',
'1 1 d
',
'1 1 d
',
'1 2 d
',
'1 2 d '
],
'0' => [
'0 0 d
',
'0 1 d
',
'0 1 d
',
'0 2 d
',
'0 2 d
'
]
};
UPDATE...
You now have the hash you wanted, and since you have the title, in variable "$title", you can use it anytime you want.
Though the printing out you desire is left for OP... :)
Hope this helps.
If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author
unknown to me
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.