Hi Folks,
thanks realy much for helping, dereference the array did the trick, this is what i have, maybe not very fashioned but it works:
#! /usr/bin/perl use strict; use warnings; use Data::Dumper; my @final; my @geo; my $derefrecord; use Win32::OLE; #Used for Geosearch and Currency my $fso = Win32::OLE->new("HHCOM.GeoSearch.CircleRangeSearch"); @geo = $fso->FindLocationsInCircleRange("CGN",75) ; print Dumper(@geo); foreach my $records (@geo){ print "=>@$records<=\n"; $derefrecord="@$records"; } print "$derefrecord\n"; my @GEORECORD = split(" ", $derefrecord); foreach (@GEORECORD){ print "$_\n"; } Output of print Dumper(@geo); $VAR1 = [ 'BNJ', 'CGN', 'DUS', 'ESS', 'GKE', 'MGL', 'SGE', 'WID' ];
Output of print "=>@$records<=\n";
=>BNJ CGN DUS ESS GKE MGL SGE WID<=
Output foreach (@GEORECORD){print "$_\n"; ...
BNJ CGN DUS ESS GKE MGL SGE WID
Thanks again Joe
In reply to Re^2: Reading arrays
by joe_fubar
in thread Reading arrays
by joe_fubar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |