Hi everyone,

I'm trying to:

(1) take an excel spreadsheet with two columns of data
(2) convert to tab-delimited text file
(3) import into perl as a hash

I've managed to import as an array:

open (LIST1, "list1.txt") || die "File not found\n";
while (<LIST1>) {push(@list1array, $_)};
close LIST1;

However, I can't figure out how to either import directly as a hash or convert the array to a hash. If someone could point me in the right direction, I'd be appreciative.

Thanks!

Recommended Answers

All 2 Replies

Hi everyone,

I'm trying to:

(1) take an excel spreadsheet with two columns of data
(2) convert to tab-delimited text file
(3) import into perl as a hash

I've managed to import as an array:

open (LIST1, "list1.txt") || die "File not found\n";
while (<LIST1>) {push(@list1array, $_)};
close LIST1;

However, I can't figure out how to either import directly as a hash or convert the array to a hash. If someone could point me in the right direction, I'd be appreciative.

Thanks!

I would do it something like this:

open (LIST1, "list1.txt") || die "File not found\n";
     while (<LIST1>) {
          ($tmpvar1, $tmpvar2) = split(/\t/, $_);
          $hashname{$tmpvar1} = $tmpvar2;
     }
close(LIST1);

Which will open the file, read in the data line by line, split the current line by the tab character (so that what is in the first column will be in tmpvar1, and what is in the second column will be in tmpvar2) then assign the hash in a scalar context. I've tested it with a tab delimited text file, and it works fine for me.... let me know how it works for you.

Works great. Thanks for the assistance!

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.