On 11-07-20 10:28 PM, H Kern wrote:
use strict;
use warnings;
my %header;
open( IN, "<", $ARGV[0] );
@header{"keys"} = split(/\t\n/, <IN>);
@header{"info"} = split(/\t\n/, <IN>);
I'm not sure but I think this is what you want:
( $header{"keys"}, $header{"info"} ) = split(/\t\n/, <IN>);
Also, Data::Dumper will dump the complex structures so you can see
exactly what it is. Comment it out to stop its output.
use Data::Dumper;
print Dumper \%header;
Data::Dumper is a standard module and is installed with Perl. For a
list of all the standard modules and pragmatics, see `perldoc perlmodlib`.
--
Just my 0.00000002 million dollars worth,
Shawn
Confusion is the first step of understanding.
Programming is as much about organization and communication
as it is about coding.
The secret to great software: Fail early & often.
Eliminate software piracy: use only FLOSS.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
