in reply to Re^3: Alternative values from array and print
in thread Alternative values from array and print
This prints out the result.use strict; use warnings; use List::Util qw(first); my %data = ( date => ['2009-01-01', '2009-01-02', ''], correct => ['Article_text1', 'Article_text2'], ); print @{$data{correct}}; print @{$data{date}};
But the output should be something like below. The values should be printed in alternative way.Article_text1 Article_text2 2009-01-01 2009-01-02
2009-01-01 Article_text2 2009-01-02
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: Alternative values from array and print
by moritz (Cardinal) on Jul 16, 2009 at 10:57 UTC |