I'm creating code that takes a list of attributes and
puts together each possible attribute with the item.
This is a matter of not knowing where to increase the
indexes at. And not knowing how to assign the indexes.
#!C:\Perl\bin\perl.exe
BEGIN{open(STDERR,">>./err.txt");}
use CGI param, header;
print header();
@type =
("basketball","baseball","beach","golfball","soccerball");
@size = ("large","medium","small");
@color = ("green","red");
@ballsel = (@type,[@size,[@color]]);
&printnames;
sub printnames{
$type = 0;
$type2 = @type;
# these with 2 are anchor indexes for the arrays of
#arrays
$size = 0;
$size2 = @size;
$color = 0;
$typeindex = @type*@size;
$sizeindex = @size;
for($i;$i<@type*@size*@color;$i++){
#############################
#trouble area
if($i == $typeindex){$typeindex +=
$typeindex;$type++;if($type == @type){$type = 0}
}
if($i == $sizeindex){$sizeindex +=
@size;$size++;if($size == @size){$size = 0}}
$color++;if($color == @color){$color = 0}
#############################
$fullname[$i] =
$ballsel[$type].",".$ballsel[$type2][$size].",".$ballsel[$type2][$size2][$color];
}#end of for
}#end of sub
#**********************************
foreach $_ (@fullname){print "\n";
print "$_<BR>"}
#**********************************
__________________________________________________
Do You Yahoo!?
Sign up for SBC Yahoo! Dial - First Month Free
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
