That should work provided you're returning only on list.
It is much better to use reference when passing or retrieving more than
one value.
For instance: Retrieve the values from a sub as refereces.
($xRef, $yRef, $zRef) = example();
#
my @x = @$x;
my @y = @$y;
my $z = $$z;
sub example {
do this and that;
# Return 3 values as refereces.
return (\ @x, [EMAIL PROTECTED], \$z );
return \(@x, @y, $z);# Simpler
}
HTH
Babs
-----Urspr�ngliche Nachricht-----
Von: Stuart White [mailto:[EMAIL PROTECTED]
Gesendet: Donnerstag, 18. M�rz 2004 02:17
An: [EMAIL PROTECTED]
Betreff: returning hashes, and arrays
I'm having trouble returning a hash from a subroutine,
and an array from a different subroutine. "Beginning
Perl" said I could return a list, I can't get it to
work. Must the hash and array really be a reference
to the hash and array in order to return them?
Here's my subroutine:
sub ParseLineForHomeAndVisitors()
{
if ($_
=~/(Spurs|Suns|Mavericks|Lakers|Clippers|Cavaliers|Celtics|Pacers|Piston
s|Wizards|Warriors|Bulls|Hawks|Raptors|Magic|Heat|Kings|Rockets|Nuggets|
Grizzlies|Jazz|Knicks|Nets|Supersonics|'Trail
Blazers'|Bucks|Timberwolves|Hornets|Sixers|Bobcats)/)
{
@teams = /([[:alpha:]]+)/g;
}
return (@teams);
}
---------
And here's how I'm trying to capture the value:
@teams = ParseLineForHomeAndVisitors();
----
I tried the same thing with my hash:
CreateAbbrevAndNicknamesHash();
and here's the sub:
sub CreateAbbrevAndNicknamesHash()
{
my %AbbrevAndNicknames;
%AbbrevAndNicknames = (
IND=> "Pacers",
NJN=> "Nets",
DET => "Pistons",
NOH => "Hornets", #check this
MIL => "Bucks",
CLE => "Cavaliers",
BOS => "Celtics",
NYK => "Knicks",
MIA => "Heat",
PHI => "Sixers",
TOR => "Raptors",
ATL => "Hawks",
WAS => "Wizards",
ORL => "Magic",
CHI => "Bulls",
CHA => "Bobcats",
SAC => "Kings",
MIN => "Timberwolves",
SAN => "Spurs",
LAL => "Lakers",
DAL => "Mavericks",
MEM => "Grizzlies",
HOU => "Rockets",
DEN => "Nuggets",
UTA => "Jazz",
POR=> "Trail Blazers",
SEA => "Supersonics",
LAC => "Clippers",
GSW => "Warriors",
PHX => "Suns"
);
}
-----------
Any suggestions?
__________________________________
Do you Yahoo!?
Yahoo! Mail - More reliable, more storage, less spam
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
