Re: Printing an array of hash refs
From: John W. Krahn (someone_at_example.com)
Date: 09/22/04
- Next message: Jim Keenan: "Re: $\ on Win2k and WinXP"
- Previous message: A. Sinan Unur: "Re: How is this Perl Script encrypted?"
- In reply to: Tony N.: "Printing an array of hash refs"
- Next in thread: Jay Tilton: "Re: Printing an array of hash refs"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Wed, 22 Sep 2004 21:24:27 GMT
Tony N. wrote:
> I'm using the following code to print an array of hash refs. It seems
> to me there should be a more concise way to do this. I don't like the
> trailing \t or the extra line of code to get the \n. Any pointers
> would be appreciated.
>
> print "$_\t" for sort keys %{$rows[0]};
> print "\n";
>
> for my $row (@rows) {
> print "$row->{$_}\t" for sort keys %{$row};
> print "\n";
>
> }
print map { my $row = $_; join( "\t", map $row->{$_}, sort keys %$row ) . "\n"
} @rows;
John
-- use Perl; program fulfillment
- Next message: Jim Keenan: "Re: $\ on Win2k and WinXP"
- Previous message: A. Sinan Unur: "Re: How is this Perl Script encrypted?"
- In reply to: Tony N.: "Printing an array of hash refs"
- Next in thread: Jay Tilton: "Re: Printing an array of hash refs"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
