Please help!!! Thanks!!!package record; use Class::Struct; struct( section1 => '@', section2 => '@', ); my $summer = new record; my @context1 = qw(sailing swimming); my @context2 = qw(science art); $summer->context1names($i++,$_) for @context1; $summer->context2names($j++,$_) for @context2; print Dumper(\$summer); print "@{$summer->context1names}";
In reply to Re: Re: How to get a package by telnet
by Anonymous Monk
in thread How to get a package by telnet
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |