Re: Need help... packages

Luinrandir wrote: OK.. maybe I'm trying to be too fancy. use tsruic the package is: ### package Names; @Countries("Ireland","Wales"); Don;t double quote string that have nothing being interpolated, use single quotes or q() %Lord{Ireland}=("Bob","Tom"); $Lord{Ireland}

Re: Need help... packages again -more

Clark.. thanks for the help, I have to decode (look in my book and figure out what you wrote) some of the code you wrote. just wanna says thanks, but its way over my head :) but look at the seconf loop! i'm begining to understand how to use those hidden , double secret invisable vars!-Lou In the

Need help... packages again

in the package: @Countries=("Ireland","Iceland"); $Lord{Ireland}=("Ambros","Baird","Cabhan","Dahey","Eirnin","Fergus","Glendan ","Hugh","Innis", "Liam","Murtagh","Orin","Pierce","Quinn","Ronan","Scolaighe","Turlach","Luin randir"); $Lord{Iceland}=("Sigurður","Guðmundur","Jón","Gunnar","Ólafur","M

RE: Need help... packages

Luinrandir wrote: : OK.. maybe I'm trying to be too fancy. : : the package is: : ### : package Names; : @Countries("Ireland","Wales"); : %Lord{Ireland}=("Bob","Tom"); : %Lord{Wales}=("Ted","Ned"); : : return 1; : # : the program is: : #

Re: Need help... packages

Luinrandir wrote: > OK.. maybe I'm trying to be too fancy. > > the package is: > ### > package Names; > @Countries("Ireland","Wales"); The '@' sigil can only be in front of an array or a slice. You probably meant: @Countries = ( "Ireland", "Wales" ); > %Lord{Ireland}=("Bob","T

Re: Need help... packages

my alternative is this, in the program: @[EMAIL PROTECTED]::Countries; foreach $Country(@Countries) { if ($Country eq "Ireland") [EMAIL PROTECTED]@NameList::IrelandLord} if ($Country eq "Wales") [EMAIL PROTECTED]@NameList::WalesLord} print @Lords; } but th

Need help... packages

OK.. maybe I'm trying to be too fancy. the package is: ### package Names; @Countries("Ireland","Wales"); %Lord{Ireland}=("Bob","Tom"); %Lord{Wales}=("Ted","Ned"); return 1; # the program is: ### foreach $Country(@Names::Countries) { print qq|$Na