Untested, but instead of this:
my @dates_copy = @dates; while (<NOTES>) { $/ = "\n\n"; my $date = shift @dates_copy; push @notes, ($date, $_); %notes = @notes; }
ponder this:
local $/ = "\n\n"; @notes{ @dates } = map { chomp; $_ } <NOTES>;
In reply to Re: First program revisited
by chromatic
in thread First program revisited
by mooseboy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |