Ohh just to show off ...
#!/usr/local/bin/perl -w use strict; use Data::Dumper; my @name = ("tim", "tom", "jon"); my @time = ("5:00", "6:00", "7:00") ; my @duty = ("floors", "urinals", "windows"); my $x = 0; my %sked = map { $_,{ time => $time[$x], duty => $duty[$x++] } } @name +; print Dumper( \%sked );
-derby
In reply to Re: Arrays and Loops
by derby
in thread Arrays and Loops
by nlafferty
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |