HEY TOOLKIT 1

[sloppyhack]

Regarding the array of hashes, your suggestion worked but I cannot figure out how to access the data now. I can see the association in your print example but cannot access the data. I was assuming I could use something like

print "$allhash[2]{Supplier Name}";

to print the "Supplier Name" value from the second line of the file. What am I missing here?

Thanks for your help. I'm almost there with this baby!!!

Cheers,
Bryant

 

[toolkit]

A couple of things:
[1] You would need to wrap the key in the example above with quotes as it contains spaces, ie: [tt]'Supplier Name'[/tt]
[2] Because you are accessing a hash within an array, you should use one of the following:

${$allhash[2]}{'Supplier Name'}
OR:
$allhash[2]->{'Supplier Name'}

Cheers, Neil

 

[sloppyhack]

Thanks Neil but I am coming up with a null value when I try to print out a record. I know there is data in this location of the source file. Here is the actual code.

foreach $allexport (@allexport) {
if ($allexport =~ /\.txt/) {
open (ALLSOURCE, "/GHX Data Processing/Reference Files/AllSource Export/$allexport&quot || warn "cannot open AllSource Export File: $!"; #open AllSource export
my @allkeys;
my @alldata;
while (<ALLSOURCE>) {
chomp;
my @fields = split /\t/;
if ($. == 1) {
@allkeys = @fields;
next;
}
my %allhash = ();
@allhash{@allkeys} = @fields;
push @alldata, \%allhash;
}
# foreach my $row (@alldata) {
# foreach (sort keys %$row) {
# print &quot;$_ => $$row{$_}\n&quot;;
# }
# print &quot;---------\n&quot;;
# }
}
}
print &quot;$alldata[2]->{'AllSource Division'}&quot;;

Why is this coming up null????? Everything seems to be in order. I really appreciate this!!!

Thanks
Bryant

 

[toolkit]

Don't forget that arrays are zero based in perl, so if you only have the two data lines, as in your example, then you should access the second entry in @alldata with:

print "$alldata[1]->{'AllSource Division'}";

Cheers, Neil

 

[sloppyhack]

The file has 140K lines and all lines have the value I am trying to retrieve. It comes up null no matter which line I choose. I really don't get it.

Thanks again,
Bryant

 

[toolkit]

Aha!
I missed the obvious. You have declared your [tt]@alldata[/tt] array as a lexically scoped variable within a block, eg:
[tt]
{ block start
my @alldata;
... do something ...
} block end
print &quot;$alldata[2]->{'AllSource Division'};
[/tt]
The [tt]@alldata[/tt] array within the block is not the same [tt]@alldata[/tt] array outside the block - in this case you are trying to access an unassigned global variable.
To make sure everything works, ensure the declaration of [tt]@alldata[/tt] appears at the package level (ie: not inside a block):
[tt]
my @alldata;
{
... do something ...
}
print &quot;$alldata[2]->{'AllSource Division'};
[/tt]
Cheers, Neil

 

[toolkit]

PS: Forgot to add [tt]\n&quot;[/tt] to end of print line :-(

 

[sloppyhack]

Thanks Neil! You are the man!!! That did it. This was killing me. It should be smooth sailing from here on. Thanks again,
Bryant